
iryt f: :r / pK 

r 0.- 

• OJ ( 'CAME PARAMETERS ! ! ) 

Ol !4 r €- PRISM ( PLAYER-REVEALER-HOSTAOE MAX TIME BASE ) 

.2112 O COASTZONE ( COAST INTO BEST CHAMBER THRESHOLD ) 
. 3! 1.8 O. H-P-D*"< HOSTAGE TO PLAYER DISTANCE ) 

411.2 C* H-H-D ( HOSTAGE TO : HOSTAGE DISTANCE > 

;51.1.8 C~ ONTOPLMT « WITHIN SPACING > 

6!38 C= MAXASSM C MAX ASSIMILATION DISTANCE ) 

7 } 

Si 7 C= .NCOLS 5-0= NROWS 
9!NCOLS NROWS # C= NNODES 
10 L . ' 

11!3 C= START-COL 3 0= STOP-COL 
12!80 C= RP-Y'O C= ST-X 62 C* ST-Y 



FILE =-• 1ST , ' . ■ • ‘ 

B !..!<>- 0 

0!< TEST SHIT TO DUMP NEAT OVECTOR STUFF ) 

1'HEX V= VERBADR 

2ISUBR NEWINTR B LDAX, B INX, A L MOV, B LDAX, B INX, A H MOV, 
3 ! VERBADR SHLD, PCI-IL, • 

4!CODE ZAMMER NEWINTR Y LXIX, NEXT 
5!s LSAT ZAMMER ? 

6!DECIMAL ;S 

7! 8 VD CR . " C* 11 ' DUP NQWC OVBS „ 

8 ,*»•*. R~ ” DUP NOWR OVBt . 

9!.“ D= " DUP NOWD OVB® . 

1.0!." DIS= " DUP DISTANCE OV© H. 

13!." DD” " DUP DELTADIST 0V@ H. 

12!,," MAXD= " DUP MAXDIST QVB@ H. 

13!." X= " DUP VX 0V@ H. 

14! ,, " Y•- VY pV@ H. CR 3 







FILE * VE ' ■ ' "■ ■■ '■ ' ^ • • *' '• . 

BL..K* ■ • : O. • ' ■ ’ ‘ • * ' 

0! ( vector Fields ) .•» **oggbug" c. vlength s - c® vlength > 

i;.DECIMAL VLENGTH SC* INTR NC® INTO < INITIAL POS AMD COL ) 
2INC* NOWR NC* NGWC ( CURRENT ROW AND COLUMN ) 

3 INC* NOWD ( CURRENT DIRECTION ) 

4!( NC* NXTR NC* NXTC ) < NEXT ROW AND COLUMN ) 

5! ( CUSTOM VECTOR ROUTINE GOODIES >* 

6 INC* BASEX 3 + 

7 INC* BASEY 1 + 

8 INC* DELTAX 1 + 

9 INC* DELTAY 1 + 

10 INC* MAXDIST MAXDIST NOWR - 1+ C= POSL.EN 

11 INC* DISTANCE 1 + 

121NC* DELTADIST 1+ BELTADIST NOWR - C* SNATLEN 
131( NC* ACCDIST 1+ ) 

14 INC* MEMOIST NC* MEMR NC* MEMO NC* MEMD —> 

3.51—> 


01( MORE CUSTOM VECTOR FIELDS ) 

1 INC* CUSVEC 1+ ( CUSTOM VECTOR ROUTINE ADDRESS ) 

2 INC* MYTYPE < VECTOR TYPE INDICATOR ) 

3 INC® MYFLAG ( BUILD IN NEATO FLAG ) NC* FLAGCODE 

4 INC* MYFACE 1+ ( WHAT I LOOK LIKE IN THE OPEN ) 

5 INC® VCOR 1+ ( MY COROUTINE CELL ) 

6 INC* BEHIND t+ ( FELLOW BEHIND ME ) 

7 INC* AHEAD 1+ ( FELLOW AHEAD OF ME ) 

8 INC* VJ SFLAG 
911+ C= MLENGTH 

10 IMLENGTH SC* HOSSV NC* ASSMSV 

11 INC* VIRGIN 

12 INC* DIST—1 < PREV DISTANCE ) 

13 INC® DISPF ( DISPLACEMENT FACTOR ) 

14 INC* SNATCHER 1 + 

1.5 I 1+ C= HLENGTH —> 


BI....K* 2 

Oil MORE UNIQUE VECTOR STUFF ) 

1 IMLENGTH AHEAD C« MYSLAVE 

21 SC* FNDPTR FNDPTR C* TRACKPTR 1+ NC* TREECK 1 + 

3 I BEHIND C* MYBOSS 

4 INC* FRONTIER 1 + 

5-1 NC* V ISM AT NCOLS + C* TREES 

610 'SC® TPL NC* TPH NC® TC NC* TR NC* TD 1+ C* TEL 
71 TEL NNQDES *. C* TDEPTH 70 C* SURPLUS 
81TDEPTH TREES + SURPLUS + 

9 I 1+ C* MONLEN 

3 01HLENGTH C* PLENGTH < PLAYERS VECTOR LENGTH 3 
3.1 I PLENGTH C* RVLEMGTH ( REVEALERS LENGTH ) 

32!( BITS AND CODES > 

13!( VECTOR‘TYPES ) 

1410 SC* T-TYP NC® H-TYP NC* M-TYP C* K-TYP 
3.5!—> 








FILE =5 VE 

BLI<= 3' , 

0! ( HOSTAGE AMD PLAYER . STATE VARIABLES !), 

1!( THE HOSTAGE STATE VARIABLE ) 

210 SO HSFREE ( HOSTAGE FREE > 

3!NO HSATP ( HOSTAGE ATTACHED TO PLAYER ) 

4!NO HSATM ( HOSTAGE ATTACHED TO MONSTER ) 

5! NO HSL..PF DROP < HOSTAGE LEAVING • PL AYFI ELD ) 

6!( ASSIMILATION STATE VARIABLE ) 

7! 0 SO ASNOT ( NOT ASSIMILATED > 

8!NO ASSIN DROP ( FULLY ASSIMILATED ) 

9!( PLAYERS ASSIMILATION STATE VARIABLE ) 

1010 SO ASCOOL ( PLAYER IS SPIFFY ) 

11!NO ASONTOP DROP ( PLAYER IS ON TOP OF HOSTAGES > 

13! . 

14! 


BLK- 4 

0!( VECTOR STUFF ) 

1!XC? NOT IFTRUE VPTR © HEX FFFO VPTR ! 1 FEND -C8TKD 

2! RAMMARK MLENGTH BR=- BKGV RAMLEN O BKVL VARHERE O BKVS 

3! RAMMARK PLENGTH BR= PL..YRV RAMLEN C= PLYRL VARHERE O PLYVS 

4!RAMMARK RVLENGTH BR= REVV RAMLEN O' REVL VARHERE O REVS 

5!RAMMARK MLENGTH BR= TV1 RAMLEN O TVVL VARHERE O TVVS 
6 i —> 

*7 s 
/ f 

,"j i 

9! 

10 ! 

11 ! 


BLK”. S , 

0!< MONSTER STUFF 5 
- 1 ! 

2!RAMMARK MONLEN BR» MOMV1 • 

3!MGNLEN BRp M0NV2 
4!MONLEN BE” M0NV3 
5!MONLEN BR= M0NV4 

6!RAMLEN O MONVL VARHERE O MONVS 
7!MONLEN O MONVBYTES 

8!STIO XC? NOT IFTRUE VPTR © hL VPTR ! IFEND 

9!DECIMAL .-> 

3 0! 





FILE = VE ■ ■ . 

BLK~ 6 ' 

0 l £ TREASURE VECTORS ) 

1 S 

2!RAMMARK MLENGTH BR= TRSV1 

3!MLENGTH BR= TRSV2 MLENGTH BR~ TRSV3 

4!MLENGTH BR* TRSV4 

5SRAMLEN C= TRSVL• VARHERE C= TRSVS 

6!MLENGTH C- TRSVBYTES 

7!4 C* TOTAL-JEWELS 


i 

10 ! 
l :l! 

12 ! - 
13! 

14 ! 

l 51 - 

BLK= 7 

01 < HOSTAGE VECTORS ) - • 

1!RAMMARK HLENGTH BR= H0SV1 
2!HLENGTH BR* H0SV2 HLENGTH ' BR* H0SV3 
3!HLENGTH BR* H0SV4 

4!RAMLEN C= HOSVL VARHERE C='HOSVS 
5iHLENGTH C~ HOSVBYTES 

6 I 4 C* TOTAL-HOSTAGES 

7 STABLE HOSTAB H0SV1 , H0SV2 , HOSVS , H0SV4 , 0 , 

i 

• 9! ( *) 

10 I H0SV4 (>-' TEMRM 

11. s —> 

12 ! 

13! 

14! 

55! 


BLK* 8 

0!< MORE MEAT VECTOR STUFF ) 

.1.1: ZAP: VECT 0 M0NV4 BKGV M0NV4 - BKVL !- FILL 
210 H0SV4 TRSV1 H0SV4 - MLENGTH + FILL. 5 

4 1 


6! 
7 1 


I U 3 

II 
12'! 

14 ! 

15 








FILE = VE 

BLK= 9 1 .... ... ■ 

0! < SPECIAL. VECTOR GETTERS AND PUTTERS ) 

1!CODE PUSHs CCR 0 H MVI, H D MOV, Y PUSHX, vaddr LIYD, 
2IN0WC Y .L LDX, NOWR Y E LDX» Y POP)C, H PUSH, D PUSH, NEXT 

4!CODE PUSHJCCRD 0 H MVI, H D MOV, Y PUSHX, vaddr LIYD, 

5SN0WC Y L LDX, NOWR Y E LDX, NOWD" Y A LDX, 

61Y POPX, H PUSH, D PUSH, A E MOV, D PUSH, NEXT 
7 t 

S!CODE COGO ( exchase BC with VCOR ) 

9! vaddr LHLD, VCOR D L.XI, D DAD, 

10! M A MOV, C M MOV, A C MOV, H INX, 

11! M A MOV, B M MOV, A B MOV, NEXT 

12 ! s 8ETC0 1 -i- VCOR V ! 5 
13 ! 

14! 

15 ! —> 








FILE = VA ;■ , - ' ■ 

BLK- ■ 0 

0!( GAME CONTROL PARAMETERS ) 

1 ! BV== NO,BREAK 

2 > y= TEASHFLAG 

3!V= GAME-OVER V= GAME# 

' 4 ! V~ : NPLAYERS V= PLAYERUP 

5!V=» INITIAL-LIVES 
6!V= REMAIWING-LIVES 
7!V— PLAYERVELO ( PLAYER•VELOCITY ) 

8! BV— FREEZEFI..AG ( PLAYER MOTION FREEZE FLAG ) 

9!BV“ SMARTS ( MONSTER SMARTNESS FACTOR ) 

10!V= MONSTERCOUNT ( # OF MONSTERS FLOATING AROUND ) 

3. J. ! BV-= BANC BV- BANR ( POINT OF BANISHMENT FOR MONSTER ) 

12!BV- IBNC BV- IBNR ( POINT OF INITIAL RETURN FOR MONSTER ) 
.1.3! BV== PLAYERSTATE ( PLAYER STATE VARIABLE )• 

1.4 10 SO PL EM NO PLIC NC= PLMV NC= PL DO A NC= PLESC DROP 
1..5 ! —> \ 

BL.K-- 1 

0!( MORE VARIABLES ) 

I * y= TOTAL.-CONNECTS V= OLD-CONNECTS 

21V- TOTAL.REVEALED-GROTTOS 

3!V- KEY.THRESHOLD 

.41BV— KEY-STATUS 

510 S0= KYNONE NC= KYSHOW NC= KYOPEN NO KYGONE DROP 
6\ V= TOTAL-PATHS 

7!V~ REVEALED-PATHS ( # OF PATHS REVEALED TO PLAYER SO FAR ) 
S’! BV= REVEAL-ACTIVE 
9 I V— FOUNDIT BV- THATSALL 
tO!DECIMAL —> 


13! 
14 1 


BLK= 2 

O!( FREEZE AMD UNFREEZE ROUTINES ) 

liSUBR FREEZE FREEZEFLAG H LX I, M INR, RET, 

21SUBR FREEZE? FREEZEFLAG LDA, A ANA, RET, 

31 CODE FREEZETH FREEZE CALL, NEXT 

4!CODE UNFREEZE FREEZEFLAG H LXI, M DOR, 0<, IF, 0 M MVI,'THEN, 
5!NEXT 


9! 


.1i 

1'3 1 
14 1 
15! 













FILE = DI 
BLK~ ’ ,0 

0!( NEW SQUARE ROOT ROUTINE ) ■ 

1!F= s=ir 11 

2! SXI.br’ s«irt < ASSEMBLE 

3!I A MVI, IB LX I, 1 D LX I. 

4! LABEL 5 q r-11 A ANA, D DSBC, RZ, RG, 0 DAD, B 1NX, B I NX, 
3SXCHG, B DAD, A INR, XCHG, -sqrtl:'JMPR, ASSEMBLE> 

6 !-•-> ' . ‘ 

71 . 


10 ! 

ii: , 

12 ! 

13 ! • ’ . . ' 

14! 

15 i ' 

BLK-" 1 

0! ( 16 BIT INTEGER DIVIDE ROUTINE! Tt N UN/ Q R ) DECIMAL 
1. ! FORWARD „ ZERO FORWARD TDV50 FORWARD IDV60 
2"! FORWARD IDV10 FORWARD IDV20 FORWARD IDV30 FORWARD IDV40 
3 ! SUBR unsdiv CASSEMBLE L C MOV, H B MOV, D A MOV, 0 H LX I, 

4!E ORA, .ZERO JRZ, B A MOV, 16 B MVJ, 

5!LABEL. IDV10 C RALR, RAL, H DADO, D. DSBC, 

6! LABEL 1DV20 CMC, IDV50 JRNC,. 

7!LABEL IDV30 IDV10 DJNZ, IDV60 JMPR,’ 1 

0! LABEL IDV40 C RALR, RAL, H DADC, ft ANA,. D DADC, 

91IDV30 JRC, IDV20 JRZ, 

10!Label idvso idv40 djnz, d dad, a ana, < make it pos > 

11! LABEL IDV60 C RALR, RAL, A D MOV, -C E MOV, 

12! LABEL * ZERO RET, ASSEMBLE!* 

13! SUBR UNSDIV H PUSH, D DSBC, CY, IF, 0 D LX I, H PDF', ELSE, 
141H POP, unsdiv CALL, THEM, RET, CODE UN/ EXX, D POP, H POP, 
3 5! UNSDIV CALL, FI PUSH, ,D PUSH, • EXX., NEXT DECIMAL. .> 


BLK= ■ 2 

0! < COMPUTE DELTA FOR 3. COORDINATE - CLEAR VECTOR > 

1!( FIRST A NEGATION SUBROUTINE ) 

2!SUBR CMPHL HA MOV, CMA, A H MOV, L A.MOV, CMA, A L MOV, H INX 
3!RET, 

4!(IN! HL=TARGET, DE=TIME, BO-START ) 

5!SUBR CDELTA B PUSH, A ANA, B DSBC, CY™, IF,. UNSDIV CALL, 

6! ELSE, CMPHL CALI..., UNSDIV CALL, CMPHL CALL, XCHG-’, CMPHL CALL, • 
7!XCHG, THEN, B POP, B DAD, RET, 

81 DECIMAL —> ' • ■' ' 

9 ! , 

3 0 ! 

3.1 ! 

•i ■*:> » 









FILE = D! 

BL!<= b ..... 

<)!( ROUTINE TO VECTOR BETWEEN CURRENT POSITION AND BEST 
HIM TIME GIVEN IN VECTOR ) 

'2!CODE A.>DEST/TIMB B PUSH, Y PUSHX, 

3 Ivaddr LIYD, 

4 IVXH Y B LDX, VX Y C LDX, VDESTXH Y H LDX, VDESTX Y L.LDX, 

5 i TTIMERH Y D LDX , TTIMER Y E LDX, D PUSH, CDELTA CALL, 

6 !H VXH Y STX, L VX Y STX, D VDXH Y STX, E VDX Y STX, 

7!VYH Y B LDX, VY Y C LDX, VDESTYH Y H LDX, VDESTY Y L LDX, 

SiD POP, CDELTA CALL, 

9! H VYH Y STX, I.. VY Y STX, D VDYH Y STX, E VDY Y STX, 

101 Y POF'X, B POP, NEXT 
II!DECIMAL —> 

i « 

X X,. t 

13 : 

14! 

15! 






FILE: 

JBLIO 

0 

1 


4 


10 

11 

12 

13 

14 


« NM 

0 

( MESH PARAMETERS ) CSTKD 

336 NC0I.S / C= COLS IZE ISO NROWS / C= ROWSIZE 
40 C-" COLGUARD 28 C= ROWGUARD 
NROWS 1." DUP C= START-ROW C= STOP-ROW 
COLSIZE COLGUARD - 0- COLDEV ROWSIZE ROWGUARD 

> COLCENT COLSIZE -a- COLSIZE 2 / + 168 - 5 
3 ROWCENT ROWSIZE * ROWSIZE 2 / + 107 - 5 

" COMPS X COLCENT COLDEV 2 / COLDEV RND - + 5 
s COMP;Y ROWCENT ROWDEV 2 / COLDEV RND - + 5 

“ COMP:XY COMPsY SWAP COMPS X SWAP ? 


C~ ROWDEV 


0!( MESH MATRIX GOODIES ) 

ISO SC- MODX NC” NODXH 

2!NC= NODY MC= NODYH NC= NBX ' H- NC= NBY 1 + 

3!MC- MPL..0 7 + 

4!NC=,NDXO 7 + 

5iNC= NDYO 7 + 

6 !NC= CONFLG NC- #CON 
7!NC= DRAWFLG NO DRAWMSK 
8!NC= ^TREASURE 1+ 

9!1+ C= NODSIZ' 

.10 ! NODS IZ NNODES * C= NODEMAT s SIZE 
11!NODEMATsSIZE BA- NODEMAT —> 

12 ! 

13! 

14! 

15! 

BLK” 2 

0!( NODE ZAMMERS ) 

1!( SIJBR node-'- D= ROW E= COL C= DI8P, OUT HL= -• ) 

2 !F« N-" l F» N"\2 SUBR node "- CASSEMBLE D PUSH, B PUSH, 

3!D B MOV, B INR,•NCOLS MINUS A MVI, 

4! LABEL N A 1 NCOLS ADI, N-l DJNZ, E ADD, A I MR, ft B MOV,' 

5iNODSIZ MINUS H LX I, NODSIZ D LX I, 

6!LABEL N"2 D DAD, N"-2 DJNZ, B DAD, 0 NODEMAT B LX I, B DAD, 
7!B POP, D POP, RET, ASSEMBLED 

8! CODE NODE"'- EXX, B POP, H POP, D POP, L D MOV, node- CALL, 
9!H PUSH, EXX, NEXT 

10! SUBR noded- node-- CALL, D PUSH, MPL..0 D LXI, 

11 ! —> 

12 ! 

13 ! 

14! 

‘ 15 ! 


D DAD, D POP 












FILE = MM ■ " ..., • • 

BLK= 3 ■ • . ■ • . 

0 ! ( TEST! REI. AND MOVE: NODE ) 

1! C D=ROW, E~COL, C”REL COL ROW REL TESTs REL - DIST > 

2!SUBR tests re 1 C A MOV/ MPLO ADI, A C MOV, node-'- CALL, 

31M A MOV, RET, 

4iCODE TEST:REL EXX, B POP, H POP, D POP, L D MOV, testsrel CALL, 
5! A L MOV, 0 !-i MV I, H PUSH, EXX, NEXT 
6!< MOVE:NODE TABLES > 

7! DATA xtbl ~l B, 0 B, .1. B, -1 B, 1 B, -1 B, 0 B, 1 B, 

8! DATA Ytb'l 1 ’ B, IB, IB, OB, 0 B, -1 B, -1 B, -1 B, 

9! SUBR move: node B PUSH, ( C='DIR, D=ROW, E=COL ) 

10 SO B MVI, vtbl H LX I, B DAD, M A MOV, D ADD, A D MOV, 
illxtbl H LX I, B DAD, M A MOV, E ADD, A E MOV, B POP, RET, 

12!CODE MOVEsNODE EXX, B POP, H POP, D POP, L D MOV, 

13! moves node CALL, D !.. MOV, 0 D MVI, D H MOV, 

14 ID PUSH, H PUSH, EXX, NEXT 


BL!<= 


0 ! ( 
1 ! s 


4 I s 


4 

STUFF ) 

NODE! NODE’- ! " 

NODE© NODE-' © 5 
NODES® NODE- B@ ? 

CLEAR:NODEMAT 0 0 NODEMAT NODEMATsSIZE FILi 



O S 


10 

11 

12 

14 

.1.5 


r\ v.< 

0!< ESTVALDIR ) 
1 ! F~ EVDL. 


SUBR estvaldir <ASSEMBLE NOWR Y D LDX, NOWC Y E LDX, 


310 NOWD Y MVIX, ' ' ' 

4!LABEL EVDL NOWD Y A LDX, MPLO ADI, A C MOV, node- CALL, 

SIM A MOV, A ANA, RNZ, NOWD. Y INRX, EVDL JMPR, ASSEMBLE> 

6! CODE ESTVALDIR B PUSH, Y PUSHX, vaddr LI YD, estval dir CALI.., 
7! Y POPX, B POP, NEXT 



J 0 
It 
12 


13! 

14 i 

15 ! 












BLK= 6 , • 

01 ( NODE MATRIX MANIPULATORS )' 

1 ! s SET 5 DRAWN ROLL DRAWMSK MODE-'- SET ; 

2! * TESTS DRAWN ROLL DRAWMSK NODE-'- BIT ? 

3 ! * SET s GROTTO? DRAWN DEAWFL.G NODES BONE 

4 ! s' TEST! GROTTOS DRAWN DRAWFLG MODEBS 3 



‘:i 0 
11 

13 

14 




( MORE STUFF ) 

«• ’RETURN! INITIALS POSITION INTR VB© NOWR VB! INTC 'VB© NOWC VB 
s' SETs NEWsMCCR NOWR VB! NOWC VB! * 
s SETs INITIALSMCCR DUP ROLL INTR OVB! INTO OVB! ? 

< RUSH TO DESTINATION ) ' ■ 

s ONsTARGET? PUSHsOCR INTR VBS = SWAP INTO VB© “ AND ? 





FILE = CD ' V . • ' - . ■ ' 

bu*« o ' ■ . • ■■ 

0!( COMPUTE DELTAS FOR STORAGE ROUTINE > 

1 1 < THIS ROUTINE COMPUTES .DELTA.. FORT ONE COORDINATE ) 

21SUBR CDEL. 1 ( DE»R*C B-COORD PTR» C=DIR ) 

3 ! B PUSHv D PUSH, •' . 

4!B PUSH, C A MOV, MPLO ADI, A C MOV, node''"' CALL, M L MOV, 
' 5!0 H MVI, B POP, L A MOV,. A ANA, 0<>, IF, 

61H PUSH, D PUSH, movesnode CALL, 

7! B C MOV, node' N CALL, M E MOV, H INK, M D MOV, XCHG, 

. 8IXTHL, XCHG, node A CALL, M C MOV, IT INX, M B MOV, 

9 ;.H POP, ( TARGET ) D POP, ( TIME ) CDEL..TA CALL, E A MOV, 
101 THEN, D POP, B POP, A B MOV, RET, 

11!—> ■ • • 

12 ! 

131. , - . 

14 ! 

15 ! 


BI-.K 

0 

1 


.1 

( SET DELTAS FOR BOTH COORDINATES 
SUBR SETDELTS 


FOR A GIVEN PATH 


2! NBX B MV I, CDEL. 1 CALL, B PUSH, C A MOV, NDXO ADI, A 
3! nod*-'- CALL, B M MOV, B POP, NBY B MV I, CDEL I CALL, 
4!B PUSH, C A MOV, NDYO ADI, A C MOV, 


node A CALL, B M MOV, B POP, RET, 


6 

7 



C MOV 


10 
11 
12 

13 

14 

15 


0!< COMPUTE DELTAS FOR WHOLE MATRIX > 
1!F= MAKELP 


2!CODE MAKEDELTS -CASSEMBLE B PUSH 
310 D LX I, 0 C MVI, 

4! LABEL MAKELP SETDELTS CALI.., 

5!C A MOV, A TNR, A C MOV, 3 CPI, 
6!E A MOV, A INR, A fe MOV, NCOLS 


7 


D A MOV, 


A INR, A D MOV, 


NROWS 




MAKELP JENZ, 0 C MVI, 
CPI, MAKELP JRNZ, 0 E 
CPI, MAKELP JRNZ, 


MV I , 


81B POP, NEXT ASSEMBLE:?- 
9!s FIXVGER NCOLS 0 DO NROWS 0 DO 
101J I NODX NODE© XADJ ,J I NBX NODE! 


11 ! ,J 
12! s 


I NODY NODE© YADJ J 
MD FIXVGER MAKEDELTS 


NBY NODE! LOOP LOOP 5 


14 

15 







FILE, * VR, - 
BL!<= - 0 

01< HOPPED UP 8 BIT MPY ROUTINE ) 


1 

(THIS ROUTINE IS USED TO MULTIPLY DELTA BY DISTANCE 

k! 

( ADDING 

RES 

LILT TO INITIAL DISP ) 


o 

( 111“ INI 

TtAL DISP, DE=- DELTA, A■» 

BIST > 

4 

SUBR HOTMPY 

RRC, CY, IF, D DAD, THEN, E SLAR,' D RALR, 

KUj 

RRG, CY, 

IF, 

D DAD, THEN, E SLAR, 

D RALR, ' 

o 

RRC, CY, 

IF, 

D DAD, THEM, E SLAR, 

D RALR, 

7 

RRC, CY, 

IF, 

D DAD, THEN, E SLAR, 

D RALR, 


RRC, CY, 

IF, 

D DAD, THEN, E SLAR, 

D RALR, 

c> 

RRC, CY, 

IF, 

D DAD, THEN, E SLAR, 

D RALR, ’ 

uo 

RRC, CY, 

IF, 

D- DAD, THEN, E SLAR, 

D RALR, 

11 

RRC, CY, 

IF, 

D DAD, THEM, RET, 


12 

SUBR SQUARE 

BABS CALL, A E MOV, 0 

D MVI, 0 H LX I, 

1.3 

HOTMPY JMPR, 



14 

- y 




15 

1 




LK- 

1 





0 

t 


4 

5 

6 
7 
*r,» 
9 

10 
l :l 
12 

13 

14 

15 


( CALCULATE X Y POSITION OF OBJECT FROM DISTANCE, BAS 
( DELTAS ) 

SUBR CALCXY 0 C MVI, 

NO UR Y A LDX , MEMR Y CMPX, 

MOWC Y A LDX, MEMC Y CMPX, 

NOWD Y A LDX, MEMO- Y CMPX, 


U<„ 

0< 

o< 


IF, 

IF, 

IF, 


C I NR, 
C I NR, 


C I NR, 


A MEMR 
A MEMC 
A MEMO 


DISTANCE 1+ Y ft LDX, A B MOV, MENDIST Y CMPX, OC 
C IMR, A MEMOIST Y STX, THEN, 

C A-MOV, A ANA, 0=, IF, 

VX Y E LDX, VX 1+ Y D LDX, 

VY Y L LDX, VY 1+ Y H LDX, 

RET, 

THEN, VBSUPDATE VLOGICSTAT Y SETX, 


IF 


BLK= 


Oi( MORE CUTE CALCULATIONS ) 
j. IB A MOV, 

21BA8EX Y L LDX, BASEX 1+ Y H LDX, DELTAX Y E LDX, 

3!DELTAX 1+ Y D LDX, HOTMPY CALL, L VX Y STX, H VX 1+ 
4!H PUSH, 


SIBASEY Y L 
61 DELTAY 1 + 
71D POP, 


LDX, BASEY 1+ Y H LDX, BELTAY Y E LDX, 

Y D LDX, HOTMPY CALL, L VY Y STX, H VY 1+ 


:E, 'AND ) 

:T X, THEN 
STX, THEN 
:TX, THEN 


' STX, 

f STX, 






FILE - VR 
BLK= 3 

0!( SET BASE POSITION ) 

1! ( IN DE=ROW , COL ) 

2! S'UBR SETBASEPOS B PUSH, D PUSH, 

31NBX C MV I, node-- CALL, M E MOV, H 
4!M C MOV, H INX, M B MOV, 

5! E BASEX Y STX, D BASEX 1 i~ Y STX ,' 

6 !E VX Y STX, D VX 1+ Y STX, 

7iC BASEY Y STX, B BASEY i+ Y STX, 
SIC VY Y STX, B VY .1.+ Y STX,. 

91D POP, B POP, RET, 

10ISUBR FREEZEBASE A XRA, 

11 IA DISTANCE Y STX, A DISTANCE 1+ Y 
12!( A 'ACCDIST Y STX, A ACCDIST 1+ Y 
13! A BELT AD I ST Y STX, A DELTADIST !. +• 
14 !-•---> 

1.5! 


INX, M D MOV, 


SIX, 

STX, ) 

Y STX, RET, 


H I NX, 


BU<= 4 

0!( ROUTINE TO ESTABLISH NEW BASE POSITIONS AND DELTAS ) 

1!( FIRST A SIGN ROUTINE ) 

21SUBR SGNA A ANA, 0 A MVI,' RP, A DCR , RET, 

31SUBR NEWPATH 

4 ! NOWR Y D LDX, NOWC Y E L.DX, 

5! SETBASEPOS CALL, NOWD Y A LDX, MPL.O ADI, A C MOV, 

6 ! node"' - CALL, M A MOV, A MAXI) I ST Y STX, 8 D LX I, D DAD, 

7!M A MOV, A DELTAX Y STX, SGNA CALL, A DELTAX H- Y STX, 

SID DAD, M A MOV, A DELTAY Y STX, SGNA CALL, A DELTAY 1+ Y STX 
9!RET, 

10 ! ..-> 

11! • 

12 ! 

13! 

14 ! 

15! 


0!< ROUTINE TO CAUSE OBJECT TO ARRIVE AT A NEW POSITION ) 
1!SUBR ARRIVE DI, 

2!NOWR Y D LDX, NOWC Y E LDX, NOWD Y C LDX, 

3!move“node CALL, D NOWR Y STX, E NOWC Y STX, 

4!SETBASEPOS CALL, FREEZEBASE CALL, 


6 

7 

VJ 

9 

10 

11 

12 

13 

14 

15 








FILE' *= VR ■ 

BLK— ; < 6 ■ • , 

0! ( DISTANCE PHASE ACCUMULATOR ) 

1!< DISTANCE HAS BOTH DELTA AND ACCELERATION ) 

. 2!( IN A= TIMEBASE TO USE ) 

3!SUBR DISTPA TBDEST TCHGSTAT Y BITX, RNZ, 

4! DISTANCE Y L LDX , DISTANCE 1+ Y H LDX, 

5,’BELT AD I ST Y E LDX, DELTADIST 1 + Y D LDX, 

61( ACCDIST Y C LDX, ACCDIST 1+ Y B LDX, ) 

7!BEGIN, D DAD, ( XCHG, B DAD, XCHO, ) A DCR, 0=, END, 

8,1 ( IF BEYOND MAX DISTANCE, SET AT MAX DISTANCE AND FLAG > 

91 MAX DI ST Y A LDX, A ANA, OO, IF, H A MOV, MAXD.TST Y OMPX, , 

10 ICY-, IF, TBDEST TCHGST AT Y SETX, MAX DI ST Y H LDX, 0 I. MV I, 

111 THEN, THEN, E DELTADIST. Y STX, D DELTADIST t+ Y STX, 

121L DISTANCE Y STX, H DISTANCE 1+ Y STX, 

13!RET, 

141—> 

151 

BLK= 7 

01( DISTANCE VECTORING ROUTINE AND VGER VERBS-) 

115 (> TB-DVECT ( TVMR0PT2 BIT TO ACTIVATE DISTANCE VECTORING ) 
2! SUBR DISTVECT PSW PUSH, B PUSH, 

- 31B A MOV, DISTPA CALL, 

4!CALCXY CALL, B POP, PSW POP, RET, 

51SUBR NEWVECT TB-DVECT TVMR0PT2 Y BITX, vert JZ, 

61H PUSH, CUSVEC Y L LDX, CU8VEC 1+ Y H LDX, XTHL» RET, 

71 XC? NOT IFTRIJE 

81 HEX NEWVECT 89D9 < 8956 ) !J! DECIMAL ( ******* STUFF IN LINK ) 
9 1 IFEND 

101 CODE DVECT-OFF Y PUSHX, vaddr LIYD, TB-DVECT TVMR0PT2 Y RESX, 
111Y POPX, NEXT 

121 CODE DVECT-ON Y PUSHX, vaddr- LI YD, 

131DISTVECT H LX I, L CUSVEC Y STX, H CUSVEC 1+ Y STX, 

14!TB-DVECT TVMR0PT2 Y SETX, Y POPX, NEXT 
15 1 —> 

BLK== 8 

01< CODE FOR TASKS TO INTERFACE TO NEW GOODIES ) 

1. 1 CODE ESTPOS DI, B PUSH, Y PUSHX, vaddr LI YD, 

■' 2SN0WC Y E LDX, NOWR Y D LDX, 

31SETBASEPOS CALL, 

, 41FEREZEBASE CALL, 

51Y POPX, B POP, NEXT 
61( TRAVEL AWAY FROM NODE ) 

,71 CODE DEPART * NODE DI, B PUSH, Y PUSHX, vaddr- LI YD, 

81NEWPATH CALL, 

91Y POPX, B POP, NEXT , 

10!( ARRIVE NODE ) 

11 1 CODE ARRIVES NODE DI,' B PUSH, Y PUSHX, vaddr LI YD, 

121 ARRIVE CALL, 

131Y POPX, B POP, NEXT 

141-—> 1 ■ 

15! ' 














FILE * VR 

BLK= 9 . , 

0!( REVERSE DIRECTION ROUTINE ) 

1!SUBE REVERSEsDIREfcTION 

2!NONE Y D LDX, NOWC Y E LDX, NOWD Y C LDX, 

3!moves node CALL, C A MOV, CMA, 7 ANI, 

4:iD NOWR Y STX, E NOWC Y STX, A NOWD Y STX, 

5j NEWRATH CALL, MAXDIST Y H LDX, 0 L MVI,' 

6!DISTANCE Y E LDX, DISTANCE 1+ Y D LDX, 

7!A ANA, D DSBC, L DISTANCE Y STX, H DISTANCE 1+ Y 
8‘RET, 

91 CODE RUSH: SOURCE DI, B PUSH, Y PUSHX, vaddr LI YD, 
10! DISTANCE Y A LDX, DISTANCE 1+ Y ORAX, OO, IF, 

11 !REVERSE 8DIRECTION CALL, 

12 I THEN, 

131Y POPX, B POP, NEXT 
141—> 




FILE = WR 
BLK= 0 

•0|( VMR SLEZR2A •) 

1 I HEX 

2!SUBR SLEZR2A ( does, pat offset and re labs ) 

31 < in- BC= maaic'/exp , HL 3 * y » DE- x , IX"- pattern ad dr ) 

4! ( .out- HL= new vscradr , C= new. vrnas i c ) 

51 invertxY? CALL, L SLAR, H RALR, L SLAR, H RALR, ( *4 for y > 
61 in ve rt? CALL, 

, 71 H PUSH, XCHG, 0 X D LDX, 0 E MVI, ( x offset ) 

81 D SRAR, E RARR, » SRAR, E RARR, ( /4 for x offset ) 

91 MRFI..OP C BIT, 0<>, IF, D DAD, ELSE, A ORA, D DSBC, THEN, 

10! XTHL, ( push X+off, t|L<-Y ) 1 X D LDX, ,0 E MVI, ( v offset ) 
111 MRFLIP C BIT, 0<>, IF, D DAD, H DCX, 

121 ELSE, A ORA, D DSBC, THEN, 

13! D POP, 

14 1 —> 

151 

BLK= 1 

( VMR ) 

( y c a. n n o t si e t h e r e 1 a r s e r t h e n 256 ) 

H A MOV, 0 H MVI, A L MOV, H DAD, H DAD, H DAD, 

H DAD, D PUSH, L E MOV, H D MOV, H DAD, H DAD, ( *64 ) 

D DAD, < *80 > XCHG, H POP, < x ) 

L A MOV, < SAVE BIT CNT ) H L MOV, 0 H MVI, D DAD, ( x+Y ) 
RLC, RLC, 3 AMI, 

MRFLOP C BIT, OO, IF, NEG, 0=, IF, H DCX, THEN, THEN, 

3 ANI, A E MOV, invert? CALL, C ft MOV, FC ANI, E ORA, 

A C MOV, ( HI.." screen address ) RET, 

DECIMAL > 


BLK= - 2 

OK MY OWN EASY TO USE WRITE ROUTINE ) 

11BV= INTERSTAT 

21 CODE WRITER A XRA, INTERSTAT STA, INTCPT IN, 

31X PUSHX, D POP, EXX, X POPX, B POP, H POP, vadJ CALL, XTHL, 
41xadJ CALL, XCHG, H POP, ( HL= Y DE- X > 

5!SLEZR2A CALL, X JNXX, X IMXX, 0 X E LDX,'X INXX, 0 X D LDX, 
61X INXX, white CALI.., EXX, 

7!INTCPT IN, INTERSTAT STA, 

SID PUSH, X POPX, NEXT 

9!DECIMAL .~> 

, 10 ! 

Ill 
12 1 

13 ! ■ : 

1.4.1 . . 


o 

1 


4 


10 
11 
12 

13 

14 






FILE ~ SC 
BLK= 0 


0!( SCORING GOODIES ) 
11 " 


21RAMMARK 8LENGTH R= P1SV RAMLEN C= P1SL VARHERE C= PISS 
3! RAMMARK SL.ENGTH R= P2SV RAMLEN C= P2SL VARHERE C* P2SS 
4!2 A= PISCR 2 A= P2SCR 
519 BA= APISCR 9 BA= AP2SCR ; 

6.'s CsSsV 0 P.1.SS P1SL FILL 0 P2SS P28L FILL. 5 
7!J CLEARS SCORES 0 PISCR ZERO 1 PISCR ZERO 
3!O P2SCR ZERO 1 P2SCR ZERO CsSsV 3 

10! 

Ill 

12 ! 

13! ‘ 

14’! 

15! 

BLK= 1 

< TASK TO DISPLAY PL.AYER ONES SCORE ) 
s DISPP1SCR 3TASKs 

0 PISCR © 1 PISCR © 1 APISCR 7 BIN->ASt 
8 0 API SCR B! 48 1. API SCR B! , . 

0 API SCR OS'UPR 
-160 X! 99 Y! 

PLOP-ON 
7 XPAND! 

0 APISCR PATTERN! 

STRING ? 

5 BUMPP1SCR 0 PISCR.e 1 PISCR © ROT 0 D+ 1 PISCR ! 0 PISCR ! 
PiSV DISPP1SCR 3 


U 

1 


4 

5 

6 
7 

9 
10 
1 1 
12 


14 

15 


BLK= 2 

OK TASK TO DISPLAY PLAYER TWOS SCORE ) 
lls DISPP2SCR 3 TASK3 

2!0 P2SCR © 1 P2SCR @ 1 AP2SCR 7 BIN~>ftSC 
3! 8 0 AP2SCR B! 48 1. AP2SCR B! 

4!0 AP2SCR OSUPR 
5196 X! 99 Y! 

6!PLOP-ON 
717 XPAND! 

8!0 AP2SCR PATTERN! 

9! STRING ,3 

10!s BUMPP2SCR 0 P2SCR © 1 P2SCR @ ROT 0 D+ 1 P2SCR ! 0 R2SCR ! 
11 !P2SV DI SPP.28CR 3 

12!s INCSCORE PLAYERUP. @ IF BUMPP2SCR ELSE BUMPP1SCR THEM 3 
13!—> 

14! ; 

15! ' . 





FILE =lSC '• 

BLjfC 85 , : ", 3 

6; ( TOGGLES LIFE, DISPLAY REMAINING LIVES, AND BITE' DUST ) 
i!S THIS*LIFE REMAINING-LIVES B@ 1-5 
21 s ROTOPOS 16 # -148 + RP-Y 5 
3!s TOGGLES LIFE ROTOPOS 
4!32 ROTY1 WRITER 5 


61s D s Rs L 

7!REMAINING-LIVES © DUP IF 
8!0 DO I TOGGLES LIFE LOOP 
9!ELSE DROP THEN 5 
10 ! 


11 

12 

13 

14 

15 





FILE ~ NGM 
BLK= 0 

0 !( NEW CONFLICT CHECKER IN: DE=R,C B=D OUT: A= FLAG ) 
1 !DATA CONCH 1 B, 0 B, t B» 0 B,. 0 B, 6 B, 0 B, A B >. 

2 ! 5 B , 0 B , 7 B , 0 B , 0 Ei , O Ei , 0 B, 2 Ei , 

3! SUBR CONFLICT? B PUSH, 0 B MV I, CONCH H LX I, B DAD , 

4!M A MOV, A ANA, 0=, IF, B POP, RET, THEN, 

5iD PUSH, H PUSH, A C MOV, move:node CALL, 

i!H POP, 8 B LX I, B DAD, M A MOV, MPLO ADI, A C MOV, 

7! nods"- CALL, M A MOV, D POP, B POP, RET, 

81 CODE CONFLICT:CHECK EXX, B POP, H POP, D POP, L D MOV, 
9!CONFLICT? CALL, A L MOV, 0 H MVI, H PUSH, EXX, NEXT 
10 ! 

11!< CHECK FOR LEGAL NODE > 

12!< D= ROW, E~ COL RETURNS CY SET IF LEGAL COMBO > 

13 ISUBR mov€ chec k 

14 ID A MOV, NROWS CPI, RNC, E A MOV, NCOLS CPI, RET, —> 
15! 


BLI<= 1 

0!( VARIABLES FOR MATRIX GENERATOR ) 
1!V= GMRC V= GMD V= GMNRC 
21 V : ~ RCX V= RCY V= NRCX V= NRCY 
*.”« ! 

4 : 


7 


10 ! 

11 I 

131 
14 ! 

15! 

BLK= 2 

OI( ADD PATH ROUTINE ) 

1!SUBR addpath GMRC SDED, C A MOV, GMD STA, t STUFF STUFF ) 
21 MPLO ADI , A C MOV, node'- CALL, M A MOV, A ANA, RIM2 , 

31 GMD I..DA, A C MOV, move: node CALL, GMNRC, SDED, .< SET NEW R 
4!movecheck CALL, RNC, 

51GMRC LDED, CONFLICT? CALL, A ANA, RN2, 

' 61 TOTAL-PATHS LHLD, H INX , TOTAL-PATHS.SHLD, ( BUMP PATHS ) 
7!( COMPUTE DISTANCES AND DELTAS ) 

8 ! 1M0DX C MVI , GMRC LDED, node'*- CALL, 

91M E MOV, H I NX, M D MOV, H 1 NX,. RCX SDED, 

101 M E MOV, H INX 7 M D MOV, RCY SDED, 

11 IGMNRC LDED, node- CALL, 

12!M E MOV, H INX, M D MOV, H INX, NRCX SDED, 

13!M E MOV, H INX, M D MOV, NRCY SDED, 

14!—> , ■ 

151 








FILE, ~ NGM 
BLK= • 3 

'0!( COMPUTE DISTANCE > ' . 

1SRCY LHLDi A ANA, D DSBC, L A MOV, SQUARE CALL, H PUSH, 
2,'NRCX LDED, RCX LHLD, A ANA, D DSBC,: L ft' MOV, 

3! SQUARE CALL, D POP, D DAD, 5<=n-t CALL.., A B MOV, ( B= DIST ) 

4! GMRC LDED, GMD LDA, MPLO ADI, A C MOV, node*"'- CALL, B M MOV, 
5!#C0N C MV I, node"' CALL, M I NR, 

6!GMD LDA, CMA, 7 ANI, MPLO ADI, A C MOV, 

7IGMNRC LDED, nod©"'- CALL, 

8' B M MOV, ttCON C MV I, nod©"' CALL, M I NR, RET, 

9 ! CODE ADDS PATH EXX, B POP, H POP, D POP, L D MOV, 

1.0! add path CALL, EXX, NEXT 
11 ! —> 

12! 

I 4 ! 

15! 

BLK= 4 

0!( ASSM CONNECTIVITY MARKER ) 

1!BV~ MAKCON 

"2!F= MRPT F= MCLP F= MDLP F= NOSH F= NXTRC 
3 !CODE MARK sCONNECTIVITV <ASSEMBLE EX X, 

4!LABEL MRPT A XRA, MAKCON STA, 0 D LX I, 

5! LABEL MCLP CONFLG C MV I, nod©"'" CALL, M A MOV, A ANA, 

6!NXTRC JRNZ, < SKIP IF ALREADY CONNECTED ) 

7!MPLO CONFLG - B LX I, B DAD, 0 B MVI, < B= DIR CTR ) 

3! LABEL MDLP M A MOV, A ANA, NOSH JRZ, ( KICKOU'T NOT REL ) 

95B C MOV, H PUSH, D PUSH,' 

10 ! rriov© s nod© CALL, ( GOTO NEIGHBOR ) 

II ! CONFLG C MVI,- node""- CALL, D POP, M A NOV, H POP, 

12!A ANA, ( IS NEIGHBOR MARKED? ) NOSH JRZ, 

1B! CONFLG C MVI, node"'" CALL, 1 A MVI, A M MOV, MAKCON STA, 

14!TOTAL—CONNECTS LHLD, H INX, TOTAL-CONNECTS SHLD, 

15!NXTRC JMPR, --> 


BL 


O 
1 
o 
" o 

4 

5 

6 
7 

9 

10 

11 

13 

14 

15 


< TRY THE NEXT DIRECTION ) 

LABEL NOSH B INR, H INX, B A MOV, 8 CPI, MDLP JRNZ, 
( GOTO NEXT GROTTO ) 

LABEL NXTRC E INR, ' E A MOV, NCOLS CPI, MCLP JRNZ, 0 
D INR, D A MOV, NROWS CPI, MCLP JRNZ, 

< KEEP ( SCANNING UNTIL THANGS STABILIZED ) 

MAKCON LDA, ft ANA, MRPT JRNZ, EXX, NEXT 

assemble:;- 


MV I - 





FILE = CM 
BLK= 0 

0!( CONNECTIVITY TESTING ) 

l!s ZAM BKGV vaddr ! NCQLS 0 DO NROWS 0 DO J I 
2'! COMPs XY ■-! I NQDY* NODE! J I NODX NODE! LOOP LOOP 
3! ST—X START-COL. START-ROW NODX MODE! , 

4 i 8T--Y START-COL START.ROW NODY NODE! 5 

5!s NSC CONE LG NODE" - - BONE ? 

6 ! s T s C CONF'LG NODES© 5 —> 

7 ! —> 


9 ! 

I o: 

II ! 
12 ! 
13! 
14! 
15! 


BLK= j. 

0!< CONNECT INDICATED ZONES TOGATHER ) 

• ' 1 ! s CRND DUP 0= IF 5 RND ELSE DUP NCOLS 1- « IF 5 -RND 

2!ELSE 8 RND THEN THEN ? 

3!: ADDS ANOTHER TOTAL-PATHS © BEGIN NCOLS 2 - RND 1 + 
4!NROWS 2 - RND 1+ CRND ADDsPATH DUP TOTAL-PATHS © 


A 

*7 


<> END DROP 3 

s MAKES MAZE CLEARS MODEM AT 7. AM 
*1 TOTAL-CONNECTS ! 


+ 


8!START-COL START-ROW Ns C 
9! NCOLS 0 DO NROWS 0 DO ...I 


10 


BEGIN 


CRND ADDS PATH LOOP LOOP 


Hi 1 ( INIT ) NCOLS 0 DO NROWS 0 DO ,J I #CON NODES© 2 < IF 

12SJ I CRND ADDS PATH DROP 0 THEN LOOP LOOP END 

13!BEGIN MARKS CONNECTIVITY TOTAL-CONNECTS 6 1= WHILE 


14 

15 


START-COL 0 CRND ADDsPATH REPEAT —> 


BLK= 2' f 

0!< KEEP COOKING UNTIL. EVERYONES CONNECTED ) 

1!BEGIN 

2! NCOLS 0 DO NROWS 0 DO J I T's C NOT I F 
•31J I CRND ADDS PATH THEN LOOP LOOP 
4!MARKS CONNECTIVITY TOTAL-CONNECTS © 1MN0DES = 

5 SEND ' » 

6 !4 GAME# B© 4 MIN - 4 * DUP IF 0 DO ADD!ANOTHER LOOP 
7!ELSE DROP THEM 5 

9!( ARE WE IN THE START CHAMBER ) 

10!s START s CHAMBER? 

.1.1 ! 2DUP START-ROW = IF START-COL = IF 2DR0P 0 ELSE I THEM 
12!ELSE DROP t THEN 5 










FILE-=* L0 :;; ■' . ■ •>;, 

BLK= 0 , 

0! ( LOCAL DISTANCE •**•*■* ) 

11( LOCAL DISTANCE ROUTINE ) . ' 

21( THIS ROUTINE COMPUTES THE DISTANCE BETWEEN TWO OBJECTS ) 

3! ( '-INS IX= FOLLOWER IY~~ LEADER OUT.* A=OIST, R* REV FLAG ) 
4!F= DIFB F= TRYM F~ SAMD F* INFIN 
5!SUBR LDIST CASSEMBLE 
6IN0WC >X E 1...DX , NOWR X D LDX, 

7! ( DOES COCO AND RI«RO ? ) 

SHE A MOV, NQWC" Y CMPX, TRYM JRNZ, 

9 !D A MOV, NOWR Y CMPX, TRYM JRNZ,' 

.1.0! ( ME AND HIM BOTH HAVE SAME ORIGIN ) 

11!< ARE WE ON THE SAME BRANCH? ) 

.1.2! NOWD X A LDX, NOWD Y CMPX, DIFB JRNZ, 

. 13!( YES SIR - WE ARE ON SAME BRANCH ) 

14!DISTANCE 1+ Y A LDX, DISTANCE 1+ X SUBX, 0 B MVI, BABS JMP, 

BLK- 1 

0!< WE ARE ON DIFERENT BRANCHES OF THE SAME ORIGIN ) 

1!LABEL DIFB DISTANCE 1+ Y A LDX, 

2!DISTANCE 1+ X ADDX, 1 B MVI, BABS JMP, 

31 LABEL TRYM NOWD X C LDX, H PUSH, moves node CALL., ( TO BEST ) 
4 ! !-■( POP, MAX DI ST X A LDX, DISTANCE 1+ X SUBX, < REVERSE BIST ) 
5! A’ B MOV, < AMD SAVE IT IN B ) 

6!D A MOV, NOWR Y CMPX, INFIN JRNZ, 

7!E A MOV, NOWO Y CMPX, IMFIN JRNZ, 

8!C A MOV, CMA, 7 ANI, NOWD Y CMPX, SAMD JRZ, 

9!< I AM ON A PATH LEADING ME TO OTHERS ORIGIN ) 

10 SB A MOV, DISTANCE 1+ Y ADDX,' 0 B MVI, BABS JMP, 

11!( I AM ON COMPLEMENTARY PATH THAT OBJECT IS ON ) 

12!LABEL SAMD DISTANCE H- Y A LDX, B SUB, 1 B MVI,. BABS JMP, 

13!( OBJECTS ARE FARTHER THEN WE CAN EASILY DETERMINE ) 

14!LABEL INFIN 127 A MVI, RET, 

1,5 ! ASSEMBLE?.-> 


BLK 

O 

1 


( DISTANCE ROUTINE FOR LIST 
( IF IT GETS INFINITY BACK 


REFORMER TO USE 5 
IT WILL TRY SWAPPING 


X AND Y 


) 


4 


SUBR LRDIST LDIST CALL, < TRY IT ONE WAY ) 
127 CPI, ENZ, ( RETURN IF NON INFINITE ) 


5!< ITS INFINITE SO TRY IT THE OTHER WAY AROUND ) 

61X PUSHX, XTIY, X POPX, LDIST CALL, 

7!C BUT SWITCH BACK TO OLD POINTER SCAM BEFORE GOING HOME ) 
SUX PUSHX, XTIY, X POPX, RET, 


10 


11. 

12 


13 

14 

15 











PILE « L,D , 

BLI<= 3 

*0! ("• NEW''FINDCLOSE ROUTINE ) 

1!DECIMAL 

2 ! F= SRCL F= FCLD 

3ISUBR FINDCLOSE ^ASSEMBLE 

4 10 HOSTAB‘H LX I, EXX, 127 C MVI, EXX, 

51 LABEL SRCL M E MOV, H INX, M D MOV, H INX , D A MOV, E ORA, 
6!FCLD JRZ, D PUSH, X POPX, ASSMSV X A LDX, ASNOT CPI, 

7!SRCL JRNZ, HOSSV X ft LDX, HSATP CPI, SRCL JRNZ, . , 

8ILDIST CALL, EXX, C CMP, CY, IF, A C MOV, 

91X PUSHX, H POP, EXX, B A MOV, EXX, A B MOV, THEN, 

10!EXX, SRCL JMPR, 

11!LABEL FCLD EXX, RET, 

12!ASSEMBLE? 

13!—> 

14! 

*) KT » 


BLK= 4 

Oil CHECK FINDCLOSE, AND IF FOUND LIGHT UP FOLLOWER )■ 

ISSUER LOOKFOLLOWER ( SEARCH LIST ) FINDCLOSE CALL, 

2! C A MOV, MAXASSM CPI, ( IS FOLLOWER CLOSE- ENUF? ) 

31RNC, ( KICKOUT IF TOO FAR AWAY ) 

4!DISPF Y CMPX, RC, ( OR TOO CLOSE ) 

5!H PUSH, X POPX, ( IX™ FOLLOWER ) 

6 !Y PUSHX, D POP, < DE= LEADER ) 

7!< LINK HER IN ) L BEHIND Y STX, H BEHIND 1+ Y STX, 

S!E AHEAD X STX, D AHEAD 1+ X STX, ASSIM ASSMSV X MVIX, 

9 ! DEL TAD 1ST' Y A LDX, A BELT AD I ST X STX, 

10! BELT AD I ST 1+ Y A. LDX, A DELTADIST 1+ -X STX, 

USB A MOV, A ANA, RZ, ( NEED WE REVERSE FOLLOWER? ) 

12 iD PUSH, H PUSH, Y POPX, REVERSES DIRECTION CALL., Y POPX, RET, 
13,'SUBR LOOK ASS BEHIND Y A LDX, BEHIMfi 1+ Y ORAX, RNZ, B PUSH, 
14iD PUSH, H PUSH, X PUSHX, LOOKFOLLOWER’ CALL, 

15IX POPX, H POP, D POP, B POP, RET, —> 








FILE *-.QT 
BLK= . 0 

OK*. CHECK FOR ONTOP ) 

1 ! F~ CiNTL 

2!SUBR ONTOP? <ASSEMBLE 
3'0 HOSTAB H LX I, 0 G MVI, 

• 4!LABEL ONTL M E MOV, H INX, M D MOV, H INX, 
5! D A MOV, E ORA, R2, 



'.BLK= ' .1. 

OK PLAYERS INTERRUPT LEVEL ONTOP CHECKER > 

1iSUBR PTLOTR 

2! ASSMSV Y A LDX, A ANA, OO, IF, 

3!ONTOP? CALL, C A MOV, A ANA, RNZ, 

4! A SCO 01... ASSMSV Y MVIX, < CLEAR ONTOP STATE ) 

51 THEN,' LOOKASS CALL, ( CHECK MY ASS ) 

6!RET, 

7!SUBR PILOTS X PU8HX, PILOTR CALL, X POPX, RET, 



1-2 


1 . .3 

14 

15 


OK PROROGATE LEADERS DELTA DOWN THRU LIST ) 

IK IY- LEADERS VECTOR ) 

2!F= CDLP SUBR COPYDELTS CASSEMBLE 
•3!BEHIND Y E LDX, BEHIND 1+ Y D LDX, 

4!LABEL CDLP 

SID A MOV, E ORA, RZ, D PUSH, X POPX, 

61L BELT ADIST X STX, H BELTADIST 1+ X STX, 

71 BEHIND X E LDX, BEHIND 1+ X D .LDX, CDLP JMPR, 
8!ASSEMBLE? 

10 1 
11 1 

.1. O 5 

141 . 

i k“, > 











FILE = OT ' ' ' ■' > ' : ' ■ '■ ' v 

BLK” 3. ' " - ■ 1 ' ; 

0!( MAKE ALL MY FRIENDS HALT RIGHT NOW ) 

1!F« EHN F=‘RELP 
2!SUBR HALTNOW ^ASSEMBLE 

3! DI , B PUSH , D PUSH) H PUSH) X PUSHX, Y PUSHX. 

410 HOSTAB H LX I, PLYRV Y LXIX, 

51 LABEL RELP M E MOV, H INX, M D MOV, H INX, 

6!D A MOV, E ORA, EHN.JRZ, D PUSH, X POPX, 

7! HOSSV X A LDX, HSATP CPI, RELP ,JRNZ, 

81A XRA, A BEHIND X STX, A BEHIND l+.X ST5(, 

91A AHEAD X STX, A AHEAD 1+ X STX, 

,,101A BELT AD I ST X STX, A BELT AD I ST 1+ X STX, 

'll!ASNOT ASSMSV X MVI X, 

1.21LRDIST CALL, A DIST-1 X STX, RELP JMPR, 

131 LABEL EHN A XRA, A BEHIND Y STX, A BEHIND 1+ Y Si;X, 
141Y POPX, X POPX, H POP, D POP, B POP, ASONfOP A MVI, 
151 ASSMSV PLYRV + ST A, RET, ASSEMBLE?- —> 


0 1 < 
1 1 


4 

INTERFACES TO THE TERSE WORLD ) 


2!CODE PROPDELTAS DI, X PUSHX, Y PUSHX, B PUSH, 
31 vadclr- LI YD, 

41DELTADIST Y L LDX, DELTADIST 1+ Y H LD-X, 


51C0PYDELT8 CALL, 

61B POP, Y POPX, X POPX, NEXT 
7 1 —> 


10 
11 
12 

13 

14 

15 





FILE = HF • 

BL.K" - , 0 

OU INTERFACES TO THE TERSE WORLD ) 

' 1!CODE JOIN;LINE DI, X PUSHX, Y PUSHX, B PUSH, 

2! vaddr- LI YD, HSATP HOSSV Y MV IX, PLYRV Y LXIX, 
. 3 ! HALTNOW CALL,- 
4!B POP, Y POPX, X POPX, NEXT 


6 

7 


10 

11 

12 

13 

14. 

15 


BLK= 1 

0!( ASSIMULATED NODE ROUTINE ) 
1IF= ROHM F~ VIRG 


SUBR HASS III < ASSEMBLE 
DISTVECT CALL, 

LOOKASS CALL, 


DI 



6 




VIRGIN Y A LDX, A ANA, 0< 
THEN, 

( AM I AT THE END OF THIS 


PSW PUSH, 

, IF, 0 VIRGIN Y MVIX, 


PATH? ) 


VIRG JMPR, 


8ITBDE8T TCHGSTAT Y B1TX, GOHM JRZ, ( NO - KICKOUT ) 



10 
11 
12 

13 

14 

•i 


BLK" 


0!( MORE ) 

II LABEL VIRG 


21 X F'USHX, H PUSH, D PUSH, B PUSH , ( GRAB FARMS FROM LDR ) 

3 I NOWR B LX I, Y PIJSHX, H POP, B . DAD, ■ XCHG, 

4 I AHEAD ¥ L LDX * AHEAD 1 + Y H LDX, ( HL= FI... ) 


5 IH PUSH, X POPX, 

6 IB DAD, POSLEN B LX I, LDIR, , - , , 

7 1 < SET HOS DISTANCE TO N UNITS LESS THAN LEADER ) 

81 DISTANCE 1+ X A LDX, DISPF X SUBX, OC, IF, ft XRA, .. THEN, 
9!A DISTANCE 1+ Y STX, A XRA, A DISTANCE Y STX, 

10ITBDEST TCHGSTAT Y RESX, ( DON'T ALARM TERSE ) ■ 


11!B POP, D POP, M POP, X POPX, 

121 LABEL GOHM PSW POP, RET, ASSEMBLE? 


14! 
15 I 









FILE a HF 
DUO 3 

'OK FOLLOW MONSTER ROUTINE ). 

1 ! SUBR MONF DI , B PUSH , 

21 Y PUSHX 7 H POP, MOWR B LX I, B DAD, XCHO, 

. 3!SNATCHER Y L LDX, SNATCHER 1+ Y H LDX, B DAD, 

41SNATLEN B LXI, LDIR, A XRA, A BELTADIST Y STX, 
51A DELTADIST "1+ Y STX, 

6 5 C.ALCXY CALL., 

7 IB POP, PSW POP, RET, 


5 . 0 ! 
11 1 
121 
131 
14 1 
151 


BL..K-" ‘ 4 


0 1 ( 


SPECIAL MASTER VECTORING ROUTINE FOR HOSTAGE 


2!SUBR H!V PSW PUSH, 

31H0SSV Y A LDX, HSATM CPI, MONF ,JRZ, 
41ASSMSV Y A LDX, A ANA, 

5100, IF, PSW POP, HASS IM JMP, 

61 THEN, PSW POP, DISTVECT ,JMP, 

71 


81 CODE HVEC'r-ON Y PUSHX, vaddr LI YD, 

9 1H! V H LXI', L CUSVEC Y STX, H CUSVEC 1 + Y 
101TB.DVECT TVMR0PT2 Y SETX, Y POPX, NEXT 


11 


5.2 
13 


14 

15 



/ 







FILE = LFN 1 

BLK* • .,0 

OIL.LOOK FOR NEARBY THANGS ) 

1!< HL= Rv C rX= SUB.J RET Z IF NEAR» NZ IF NOT ) 

2!SUBR NEARBY? NOWR X D LDX, NOWC X E LDX ? 

3!D A MOV, H CMP, 0=, IF, E A MOV, L CMP, . 

4!RZ, THEN, 

Si I DISTANCE 1+ X A LDX, A ANA, 0=, IF, A I NR, RET, THEM, 

61NOWD X C LDX, H PUSH, move*node CALL, H POP, 

7!D A MOV, H CMP, RNZ» E A MOV, L CMP, RET, 


91 ( NEARBY LIST HL'= TARO HL= LIST RET Z= NONE NZ- FOUND ) 
10!SUBR NEARBYLIST M E MOV, H INX, M D' MOV, H IMX, 

USD A MOV, E ORA, RZ, D PUSH, X POPX, EXX, 

12!NEARBY? CALL, EXX, NEARBYLIST JRNZ, 

13!3 A MVI, A ANA, RET, 

14 !—> 

IS! 


BLK 

0 

1 


10 
11 
12 


( CODE ROUTINE TO DO NEARBY CHECK ) 

( C R LIST MTC? . T ) 

CODE MTC? H POP, < HL= LIST ) 

EXX, D POP, H POP, E H MOV, EXX, ( R,C ? 

X PUSHX, NEARBYLIST CALL, 0 H LXI, 0=, IF, H INX, THEN, 

X POPX, H PUSH, NEXT 

DATA PCONFT M0NV1 , M0NV2 , M0NV3 , M0NV4 , H0SV1 , H0SV2 , 
H0SV3 , H0SV4 , TRSVl , TRSV2 , TRSV3 , TRSV4 , TV1 ,.0 , 

2 NOBODY3 HOME5 YET? 2DUP PCONFT MTC? IF 1 ELSE 2DR0P 0 THEN 


14 
t K 1 







FILE ~ T 
BLK= 0 , 

.'OS ( PLACE TREASURE IN HAZE ) »■ ' 

1 !BV= TRPOKE ( TREASURES GRABBED SO FAR > 

2!TABLE T/M TRSV1 , TRSV2 , TRSV3 , ’TRSV4 , 0 •, 

3!TABLE T/I THESTAR , THESYM , THEJEWEL » THEFLOWER » 0 , ■ 

. 4 i 

51! SPOTPOKE 82 TRPOKE B@ 16 * - PLAYERUP B® NOT IF-MINUS THEN 
6 1X! 94 Y! TRPOKE 1+B! i 

7!—> ■ • . 

O < 

«.-« 3 

91 _ , / 

’ 10 ! ’ • ■ 

11! 

;| 2 ! 

13 I 
14! 

15! 

BLK= 1 . 

0!C TASK FOR A HUNK OF TREASURE ) 
l ! 

2!s TRS-T ?TASKS 20 RND TIMER!-ON WAIT 
3!< MAKE SELF APPEAR ) 

4!ESTPOS 

5 IMYFACE V© ANIM! 1STWRITE 
6!XOR-ON’ZERODXDYAXAY 
7!10 TIMEBSCALE! 

8! SELF MYFLAG FLAG!--ON GO DI ZEROTIMEB 

9\( PLACE SELF NEXT TO SCORE ) 

10!SPOTPOKE 

11!TREA-S 1000 INCSCORE GO 5 

13! 

14! 

151 

BLK= 2 

01( PLACE TREASURE IN MAZE ) 

11V= THESPOT 

21s HIDE!PEICE THESPOT ! BEGIN BEGIN 
31NC0LS RND NROWS RND START!CHAMBER? END' 

4 1 NOBODY s HOME: YET?, END 

512DUP THESPOT ® NOWR OVB! THESPOT d NOWC OVB! 

61THESPOT © ROLL >TREASURE NODE! THESPOT © TRS-T 5 
7ls HIDE?TREASURE TOTAL-JEWELS 0 DO 
8!I T/I @ I T/M © MYFACE OV! 

911 T/M © HIDE* PEICE LOOP 5 
.10!! TREASURE5 CHECK PUSHsCCR ^TREASURE NODE© DUP IF 
11!DUP MYTYPE OVB© T-TYP = IF 

12!< JEWELS-REVEALED 1+! ) THEN 1 SWAP MYFLAG-OVB! 

1310 PUSHsCCR ^-TREASURE' NODE! ELSE DROP THEN 5 
i ’ *“ ‘ 

15 ! ’ ' ; 







FIL'E'^lRS, 

BLK= 0 

01C ROUTE SEARCH ROUTINE > 

1. 1 ( VISITED MATRIX GOODIES > , 

21 SUER VIS? H PUSH, B PUSH, V PUSHX, H POP, VISMAT B LX I, B DAD, 

3! E C MOV, B DAD, D A MOV, BIT''- CALL,' M ANA, B POP, H POP, RET, 

41 SUBR SETVIS H PUSH, B PUSH, Y PUSHX, H POP, VISMAT B LXI, 

51B DAD, E C MOV, B DAD, D A MOV, BIT"- CALL, M ORA, A M MOV, 

6\B POP, H POP, RET, 

71 ( CLEAR OUT VIS BIT MATE'IX ) 

81 SUBR 7.APVI8 B PUSH, H PUSH, VISMAT B LX I, Y PUSHX, H POP, 

9 IB.DAD, NC0L8 DO, 0 M MVI, H INX, LOOP, H POP, B POP, RET, 

5.0 1 -.> 

1 . 1 . 1 

5.21 • ■ 

13 1 
141 
151 

BLK= 1 

01< GENERATE TREE ENTRYS FOR ONE ENTRY > 

1 1 F'-- RUGLP 

21 SUBR GENTE CASSEMBLE MPLO C MV I, node"- CALI..., H PUSH, S B MVJ, 

3 ILDAR, 7 AMI, A C MOV, 

41 BEGIN, H POP, H PUSH, B A MOV, 0 B MVI, B DAD, A B MOV, 

SIM A MOV, A ANA, OO, IF, D PUSH, moves node CALL, 

61 VIS? CALL, 0=, IF, < GENERATE NODE .) 

'7 ISETVIS CALL, 

81MYB0S8 Y A LDX, A TF'L X STX, MYBOSS 1+ Y A LDX, A TPL 1+ X STX, 
91E TC X STX, D TR X.STX, C TD X STX, 

, 101TREECK Y L LDX, TREECK 1+ Y H LDX, FORKETH CALL, ( END. CHECK? ) 
111 TEL D LX I, D DA.DX». 

121 THEN, D POP, THEN, C A MOV, A I NR, 7 AMI, A C MOV,, LOOP, H POP, 
13 I RET, 

'14!ASSEMBLE? 

15 1—> 

BLK“ 2 

"OK ADVANCE TREE ONE DEPTH DOWN ) 

11SUBR ADVT MYBOSS Y L LDX, MYBOSS 1+ Y H LDX, 

21H INX, H INX, M E MOV, H INX, M D MOV, 

31 GENTE CALL, MYBOSS.Y L. LDX, MYBOSS H- Y H LDX, 

41 TEL D LX I, D DAD, M E MOV, H I MX, M D MOV, 

51D INX, D A MOV, E ORA, 0=, IF, H INX, ELSE, H DCX, THEN, 

AIL MYBOSS Y STX, H MYBOSS 1+ Y STX, ADVT JRNZ, 

71-1 X 0 MV1X, X INXX, -1 X 0 MVIX, X INXX, RET, 


7 S 

10 I 
111 
12 1 

14 1 
15! 













FILE = RS ; 

BLK= 3 

0!( FIND PATH ROUTINE > 

IK BC=TAF?GET R,C DE* NOWR,NOWC HL= ENDCHK IY» TRE 
2! CODE 8TARTSEARCH X PUSHX, D POP, Y PUSHX.. H. POP, 
3!H POP, vaddr LIYD, ZAPVIS CALL, 

4! A XRA, '• - 

5! A FNDPTR Y SIX, A FNDPTR .1+ Y STX, 

6 i A MYBOSS Y STX, A MYBQSS It- Y STX, 

7IN0WR Y D LDX, NOWC Y E LDX, 

SSL TREECK Y STX, H TREECK 1+ Y STX, 

91Y PUSHX, X POPX, TREES B LXI, B DADX, 

10!X PUSHX, GENTE CALL, H POP, 

11!L MYBOSS Y STX, H MYBOSS 1+ Y STX, 

12!-1 X 0 MVIX, X INXX, -1 X 0 MVIX, X INXX, 

13IX PUSHX, D POP-, E FRONTIER Y STX, D FRONTIER 1 + 
141 EXX, D PUSH, X POPX, H PUSH, Y POPX, NEXT —-> 

15! 


BL..K” 4 

OK MORE PATH FINDER ) 

1!F« TREELP F* SCANBK F~ SCAN.I ' 

2ISUBR BANGTREE {ASSEMBLE 

3!FRONTIER Y E' LDX, FRONTIER M- Y D LDX, D PUSH, X 
4!FNDPTR Y L LDX, FNDPTR 1+ Y II LDX, 

5!L‘ A MOV, H ORA, SCAN1 JRNZ, ADVT CALL, 

6!X PUSHX, D POP, E FRONTIER Y STX, D FRONTIER M- 
7!A XRA, RET, 


I 

10 ! 
11 ! 
1 . 2 ! 

14 ! 
15! 


0!< MORE ) 

1!LABEL SCAN1 0 B LX I , 

2!LABEL SCANBK M E MOV, C*M MOV, H INX, 

3!M D MOV, B M MOV, H DCX, H B MOV, L C MOV, 

4! E A MOV,' D ORA, 

5100, IF, X CHG, SCANBK JMPR, THEN, 1 A MV I, A ANA 

6 1 ASSEMBLE!* 

7 ! 


8!CODE LOOKAHEAD Y PUSHX, D POP, 
9!vaddr LIYD, BANGTREE CALL, Q=, 
1010 H LX I, ELSE, H PUSH, 1 H LX I, 
tliEXX, H PUSH, X POPX, D PUSH, Y 
12 ! 

13 ! —> 

14 ! 


X PUSHX, H POP, E 
IF, 

THEN, H PUSH, 
POPX, NEXT 


E RAM ) 
EXX, 


V STX, 

PUPX, 

Y STX, 


, RET, 

XX, 










file *«• ns'- ; 

•■BLK™ v 6 ■ 

0!( ROUTINE TO FIND BEST PATH TOWARDS TARGET ) 

1 ! ( CHECK ROUTINE -.ARE WE HONE' YET? ) 

21SUBR BULLSEYE? INTR Y A LDX, D CMP, RNZ, 

SHINTO Y A LDX, E CMP, RNZ, X PUSHX» H'POP, 

4! L FNDPTR Y STX,. H FNDPTR 1+ Y STX, RET, 

5! : RECON 

6!BULLSEYE? STARTSEARCH BEGIN SYNC DI 
7!LOOKAHEAD END TRACKPTR V! COGO S 
8! CODE FOLLOWTRACK Y PUSHX, vac! dr- LI YD, 

9!TRACKPTR Y L LDX, TRACKPTR 1+ Y H LDX, 

10IM E MOV, H I NX, M D MOV, H I NX, H I NX, H I NX', 

USE TRACKPTR Y STX, D TRACKPTR 1+ Y STX, M L MOV, 0 

121Y POPX, H PUSH, NEXT ASSEMBLE? — > 

1.3 I 
141 
.15! 


H MV I, 






FILE ■= H ' ' ' ' ' - - ; 1 

BLK= ■ 0 : •' • : , "• • . 

0!< HOSTAGE TABLE, HOSTAGE INTERCEPT„ CHECKER > 

1 i.( CHECK HOSTAGE INTERCEPT WITH MONSTERS ) 

2! DATA MONLIST’•MONVI , M0NV2 , M0NV3 V M0NV.4 , 0 , 

31 HEX'0202 DECIMAL C= XYHOST 

4! ( HOSTAGES' INTERCEPT CHECKER, RUNS AS HOOK ) •. 

5ISUBR HOS-MON? FREEZE? CALL, RNZ, EXX, 

6! MONLTST H LXI, XYHOST B LX I, CHECKS VECTORS LIST CALL, 
7100, IF, 

8!1 MYFLAG Y MVlX, ( SET ME EATEN ) FREEZE CALL, 

91X PUSHX, D POP, E SNATCHER Y STX, D SNATCHER 1+ Y STX, 
10!Y PUSHX, D POP, E MYSLAVE X, STX, D MYSLAVE 1+ X STX, 
UiHSATM HOSSV Y MVlX, HALTNOW CALL, 

1211 MYFLAG X MVlX, < TELL MONSTER MOVE FLAG ) THEN, 

131EXX, RET,, 

141 —> 

1 , “N * 


01< TASK FOR A TEST HOSTAGE ) HEX 400 C- EXITVEL DECIMAL 
11( V= RECURADDR ) 

2!s H-T 5 TASKS DI H-H-D DISPF VB! H-TVP MYTYPE VB! 

31 ZEROTIMES 20 RND TIMER!-ON WAIT DI 1STWRITE 
41ESTPOS ESTVALDIR BEGIN DI O MYFLAG VB! 

51HOSSV VB© HSFREE CASE DVECT-ON 
6!HOS-B ANIM! XOR-ON 10 TIMEBSCALE! 0 TIMEBMAX! 

7 1 MYFLAG V'" FLAG ! -ON GO 
81 ELSE HSATP CASE 
91( PRTBM TIMEBMAX! ) 

101CAPT-S HOS-A ANIM! JOIN:LINE 
1111 VIRGIN VB! 0 TIMEBSCALE! 

121MYFLAG V A FLAG!-ON HOS-MON? HOOK!-ON 
131500 1NCSCORE HVECT-ON GO 

14 1.Is- 

ISI 

BLK-” 2 

01( FOLLOW MONSTER TO NEW HANGOUT ? 

11 ELSE HSATM CASE FREEZETH DRUG—S 
21 FLAG-OFF HVECT-ON 
31 HOOK-OFF 
41ZEROTJMEB 

SIC FOLLOW MONSTER TO ITS TARGET POSITION ) 

61 BEGIN MYFLAG V'> FLAG ! -ON , GO DI FLAG? END 
71ESTPOS ESTVALDIR 

8!UNFREEZE HSFREE HOSSV VB! ASNOT ASSMSV VB! 

91 ELSE DROP THEN THEN THEN 0 END 5 
JO!—> ' . 

Ill 

. 121 : 

13! 

141 •: " . 

.151 ■ • , 







Pile:;*- h - ' , ' - 

BLK* 3 

O'i( PLACE HOSTAGES IN MAZE ) 

T!s HIDE*HOS THESPDT ! BEGIN BEGIN* 

2 INCOLS RND NROWS RND STARTsCHAMBER? END 
3!NOBODY s HOME sYET? END 

4!THESPOT e NOWR OVB! THESPOT @ NOWC OVD! 
5! THESPOT @1 H-T 5 
6!s JAILSHOS TOTAL-HOSTAGES 0 DO 
7!I HOSTAB & HIDE:HOS LOOP 5 


10 

11 

13 

14 






FILE = R 

BL..K" 0 : 

01( VGS internet vector erase VERASE' VERASEWRJTE ) <STK 
ISSUER XOR—FLIP VOXPAND Y B LDX, VOMAGIC. Y C LDX, 

2!VOPATH Y H LDX, 

31 VOPAT Y I.. LDX, H INX, H INX, ,( rat off set) H PUSH, X POPX, 
4! VOSCRADRH Y H LDX, VOSCRADR Y L LDX, 


6 

7 


writer JMP, ( erase it > 


10 

11 

12 

13 

1.4 

15 


BLK= 1 

0!( ROUTINE TO LINK TO 
1!SUBR WRITE-LINK 


VGER WRITE ROUTINE 



2! VBNOWRITE VLOGICSTAT Y BITX, 0=, IF, INTCPT IN, VWRITE CALI 
3! TBINTCPT-CHK TVMROPT Y BITX, OO, IF, INTCPT IN, 

4! A ANA, OO, IF, TB INTCPT TCHGSTAT Y SETX, 

5! ' TBNOVECT TVMROPT Y SETX, THEN, THEN, 

6! ELSE, VBNOWRITE VLOGICSTAT Y RESX, THEN, RET, 8TK> —> 

7! 


10 
11 
12 

13 

14 

15 


BLK= 


0 

1 


( CHECKS NEAR ) 
DATA PCON PLYRV 


M0NV1 


M0NV2 


M0NV3 , 


21M0NV4 , TV1 , TRSV1 , TRSV2 , TRSV3 , TRSV4 
3IH0SV1 , H0SV2 , H0SV3 , H0SV4 , 0 , 

. 4!—> • ' ‘ 




6 


10 

11 

12 

13 

14 

15 








FILE" ~ ' 'R'-. •' 

BLK=*\* 3. 

0!C SPECIAL WRITE ROUTINE FOR REVEALS ) 

1 SHEX OCOC. C= XYZQNE DECIMAL 
2!F= REML F-~ RESL F= LISTEND 

3!SUBR REVEALWRITE <ASSEMBLE 0 H LXI, H PUSH, < MARK STACK.) 
4! ( Y PUSHX, H POP, CONFTAB D LX I, D DAD, > 

• 5!PCON H LX I, 

6!LABEL REML M E MOV, H INX, M D MOV, H INX, D A MOV, E ORA, 
71LISTEND JRZ, D PUSH, X POPX, 

81 VBNOERASE VLOOICSTAT X BITX, REML JRNZ, 

9! VOPATH X A LDX, VOPAT X ORAX, REML JRZ, 

101 

11 !—> 

12 1 
131 

14 1 
1 * 


BLK= 4 

01< MORE OF SPECIAL WRITE ROUTINE FOR REVEALS ) 

.1 1 XYZONE B LX I, 

2 1 PROX IMITY-CHECK CALL, REML. JRZ, 

31X PUSHX, H PUSH, Y PUSHX, X PUSHX, Y POPX, XOR-FLIP‘CALL, 
41Y POPX, H POP, REML JMPR, 

51 LABEL LISTEND WRITE-LINK CALL, 

6 1 LABEL RESL D POP, D A MOV, E ORA, transition JZ, 

71Y PUSHX, D PUSH, Y POPX, 

81 XOR-FLIP CALL., Y POPX, RESL. JMPR, 

9 1 assemble::-- 
101 

11 1 HE X 400 C“ INI TI AL#L.EAP 

121100 C= REVVEL 4 C= SHORTGOAL DECIMAL —> 

1J 1 
141 
151 

BLK= 5 

0!< DRAW ARROWS TO REVEAL OPTIONS ) 

11 HEX SUBR DRAWARROWS DI, B PUSH, X PUSHX, 

210 B MVI, BEGIN, 

31B C MOV, noded-- CALL, M A MOV, A ANA, OO, IF, 

41DRAWM8K C.MVI, node""- CALL, M C MOV, B A MOV, 

01 BIT-'" CALL, C ANA, 0=, IF, B PUSH, D PUSH, 

61 B C MOV, 0 B MV I, QUIVER H LX I, B DAD, B DAD, 

71M C MOV, H INX, M B MOV, B PUSH, X POPX, 

81NBX C MV I, node'"- CALL, M E MOV, H INX, M D MOV, H INX, 

91M A MOV, H INX, M H MOV, A L MOV, 20 B LX I, 

.101 SL.EZR2A CALL, X INXX, X INXX, 0 X E LDX, X INXX, 

1110 X D LDX, X INXX, write CALL, 

12 ID POP, B POP, THEN, THEN, B INR, B A MOV, 8 CPI , CY~, END, 
13!X POPX, B POP, RET, 

14 ‘.DECIMAL —> 

151 ■ ■ 






FILE = R 
BI,K= 6 

0!( MORE ARROWHEADED ACTIVITY ) 

1!BV= ARROWFLG V* ARROWRC 

2!CODE ONARRGWS REVEAL-ACTIVE EDA, A ANA, 0=, IF, 

3!ARROWFLG LDA, A ANA, 0=, IF, 

4!Y PUSHX, vaddr LIYD, 

5!NOWR Y D LDX, NOWC Y JE LDX, Y POPX, 

6! ARROWRC SDED, DRAWARROWS CALI,., 

711 A liVI, ARROWFLG ST A, THEM, THEM, NEXT 

O * 

»».« I 

9 I CODE OF - F ARROWS ARROWF'LG LDA, A ANA, O T, IF, 

10!ARROWRC LDED, DRAWARROWS' CALL, 

11 IA XRA, ARROWFLG STA, THEN, NEXT 
12 !—> 

13 I 
14! 

15! 

BLK-~ 7 

0!< HEADLIGHT REVEALER ) 

. 1 . ! HEX s HEADLIGHTS REVEAL 3 TASKS DI REVEAL-ACTIVE BONE 
2!NOWC PLYRV OVB® NOWC VB! NOWR PLYRV OVB@ NOWR VB! 

3SN0WD PLYRV OVB@ NOWD VB! ESTPOS DEPARTS NODE 
41MAXDIST VB© SHORTGOAL - MAXDIST VB! 

5 ! EE VEAL PAT AM I Ml OC XPANDI-ON OR--ON 1STWR1TE PRTBM TIMEBMAX 
6!INITIALttLEAP DISTANCE V! REVVEL DELTADIST Vi DVECT-ON 
7 !REVEALWRITE ZGO DJ 

O * «... • 

KJ « 

9! ’ * 

10 ! 
i 1 S 

12 i 
13! 

14 ! • 

•1 er ! 


BLK= 8 

OK MORE HEADL 3 GHT REVEALER ) 

1 !PUSHs CCRD TEST!DRAWN NOT IF 

2 ! REVEALED-PATHS 1 + ! ( INCREMENT # OF PATHS REVEAI...ED ) 

3 !THEN • . ' 

4 !PUSHsCCRD SETs DRAWN 

5 !ARRIVES NODE PUSHsCCRD COM 7 AND SETsDRAWN 
6 !PUSHsOCR TESTS GROTTOS DRAWN MOT IF 2 .REVEAL-ACTIVE B! 
71 GROTTOPAT ANIM! tSTWRITE OC XPANDI-ON. 

8 !TOTAL-REVEALED-GRpTTOS 1 +! 

9!1 TIMER!-ON REVEALWRITE ZGO DI 
1.0 ! PUSH s CCR SETs GROTTO s DRAWN THEN REVEAL-ACTIVE BZERO 3 
11 I DECIMAL —> . ’ 

12 ! 

13 ! 

14 ! 

15 ! 










FILE = R’ 

BLK~ , 9 

OJC REVEAL. FIRST CHAMBER .) 

1!HEX BV= UNROLL • 

21 i INITIALs.REVEAL ? TASKt 
3!PLYRV NOWR OVB@ NOWR VB! 

4SPLYRV NOWC OVB@ NOWC VB! ESTPOS DVECT-ON 

5!GROTTOPAT ANIM! 1STWRITE OC XPAND! XPAND-ON OR-ON 

6J 1' TIMER!-ON REVEALWRITE ZOO 

71 PUSH;OCR SETs GROTTO!DRAWN 

81010 UNROLL B! 

91 BEG IN 1 TIMER!-ON WAIT UNROLL B@ DUP VERBl. OUTP 4 + DUP 
101 UNROLL B! ODD = END 5 
111 

121 DECIMAL •--> 

1.31 

14! 

151 





FILE = K 


BLK= 0 ' 

Oil KEY HON I TOR - WAIT FOR N CHAMBER'S TO -BE REVEALED > 
1KANIM-TBL FLASHEXIT EX I TP AT 20 NULPAT 20 TBL> 

2 ! <ANI M-1 BL FLA'BMKEY KEV1 20 NULPA T" 20 TBL1> 

3 I 

41: REYMAN 5 TASK: DI 
5IBE-GIN BEGIN 

6!NCOLS RND NROWS 2- RND START:CHAMBER? END 
7!NOBODY:HOME:YET? END 


8SN0WR VB! NOWC VB! 

9!SELF PUSH:OCR ^TREASURE NODE! 
10!KYSHOW KEY-STATUS B! 


11 
12 
13 


14-i 

15 


BLK= 1 

0i< KEY REVEALER 5 
1!ESTPOS 

2 ! FLASHKEY ANIM! XGR--DN XPAND-OFF 
3IMYFLAG V-"- FLAG!-ON DVECT-ON GO DI 
4 ! KYOPEN KEY-STATUS' B ! 

5!NULPAT ANIM! 1 TIMER!-ON GO 
6!KEY-S 

7!( NOW REVEAL EXIT CHAMBER ) 

8! BEGIN ' 

9!STOP-COL NOWC.VB! STOP-ROW NOWR VB! ESTPOS- 
101GROTTOPAT ANIM! RLEASE-UPDATE 
•lliXOB-ON XPAND-ON 8 XPAND! 30 TIMER!-ON GO DI 

141 
15! 

BLK= ' 2 

0:f REVEAL THE EXIT CHAMBER ) 

1! PUSH'S CCR TEST: GROTTO: DRAWN NOT IF 

2! GROTTOPAT ANl'M! 1ST WRITE 12 XPAND! XPAND-ON OR-ON 

3 ! ESTPOS PUSH s CCR SET s GROTTO :■ DRAWN 

4!1 TIMER!-ON REVEALWRITE ZOO DI THEN 
5:ESTPOS 

6!FLASHEXIT ANIM! ’ ' 

7!XOR-ON XPAND-ON 8 XPAND! 
v 8!MYFLAG V A FLAG!-ON GO 5 
9 ! —> 

10! 

11 ! 

12! • 

13! 

.14 > 

15! 










if sue ; “ j< ‘ y - . ' ■ ■ 

BLJ<= : 3 •' ‘ . ■ : 

0! ( KEY MONITOR WAIT FOR ‘ N CHAMBERS TO BE REVEALED .) 

1 ! ■ . ' . 

2! s KEY-TASK 5 TASKS K--TYP MYTYPE VB! KYNONE KEY-STATUS B 
’3!BEGIN 30 TIMER!-ON WAIT DI 

A ! TOTAL-REVEALED-GROTTQS © KEY-THRESHOLD © > END 
511STWRITE 
6 'KEY-S . 

7!TV1 KEYMAN ? 

9 ! 

10 ! 

i :l.! • 

12 t 


14! 
15 ! 


0!< ROUTINE TO END GAME ) 

1!f END-GAME ? TASK: 

2!0 BEHIND PLYRV OV© BEGIN DUP WHILE SWAP 5000 + SWAP 
3!BEHIND OV© REPEAT DROP INCSCORE 60 TIMER!-ON WAIT 
4!STOPme 1+B! NOBREAK BZERO 5 


6 

7 


10 
11 
12 

13 

14 

15 





FILE = P 
BLK* 0 

0!( JOYSTICK ROUTINES ) 

II HEX ( BV= JOYCODE BV= JOYLAST ) ( DSOO DP ! ****************** ) 

2! DATA JOYTBL -I B, '-1 B, -1 B, -1 B, —1 B, .0 B. 5 B, -1 B, 

3! -1 B, 2 B, 7 B, -1 B, -1 B, -.1. B, -l B, -.1 B, 

41-1. B; 1 B, 6 B, -1 B, 3 B, 0 8, 5 B, -1 B, 

’ 5! 4 B, 2 B, 7 B» -1 B, -1 B, -1 B, -1 B» -1 ‘B, ; 

61i SUBR MYINTR PSW PUSH, H PUSH, 12 IN, CMA, IF ANI, 

7!JOYLAST H LX I, M CMP, A M MOV, 0<>, IF, IF A MVI, THEN, 

S! JOYCODE ST A, H POP, PSW POP, SU1.1 JMP, ) 

9! SUBR setsjoYcc.de 12 IN, CM A, IF AN I, A E MOV, 0 D MV I, 

10!JOYTBL H LX I, D DAD, M A MOV, A ANA, RET, 

111 CODE GETSJOYCODE 

12!12 IN, CMA, IF ANI, A E MOV, 0 D MVI, JOYTBL H LX I,. 

13 ID DAD, M A MOV, A ANA, OC, IF, 0 H LXT, ELSE, 

14! A E MOV, D PUSH, 1 IT LX!, THEN, H PUSH, NEXT 

15!DECIMAL ,—> 

BLK= 1 

0!( NEW SCAN ADJUSTER ) 

1iDATA CCWTBL 3 B, 0 B, 1 B» 5 B, 2 B, & B, 7 B, 4 B, 

•2! DATA CWTBL 1 B, 2 B, 4 B, 0 B, 7 B, 3 B, 5 B, 6 B, 

3! F= scanr F= noso 
4 ! SUBR a. d ,i -s ca. n CASSEMBLE 

5!H PUSH, 0 B MVI, B DAD, M A MOV, A ANA, 

6 ! scant- JRZ, H POP, C A MOV, RET, 

7!LABEL seanr CCWTBL H LXI, B DAD, M E MOV, 0 D-MVI, • 

S!H POP, H PUSH, D DAD, M D MOV, 

9!CWTBL H LX I, B DAD, C A MOV, M C MOV, H POP, B DAD, 

10!A B MOV, M A MOV, 

11! A ANA, OO, IF, D A MOV, A ANA, noso JRNZ, 

121C A MOV, RET, THEN, D ORA, noso JRZ, E A MOV., RET, 

13! LABE!... noso B A MOV, RET, 

14!A8SEMBLE> 

' 15!—> 

BLK= 2 , 

0!< INTERRUPT LEVEL JOY MONITOR > 

1!CODE ADJ—SCAN EXX, B POP, H POP, • 

2! a. d • j -scan CALL,. A L MOV, 0 H MV I, H PUSH, EXX, NEXT 
3 ! BV ~ OB JECT--MOVI MG 
4!F= RVRS 

5!SUBR JOYCHECK CASSEMBLE OBJECT-MOVING LDA, A ANA, RZ, 

6!TBDEST TCHOSTAT Y BITX, RNZ, DISTANCE 1+ Y A LDX, A ANA, RZ, 

7 ! b e t4 j o y c o de CALL, 

8!0<, IF, PLYRV ASSMSV + LDA, .ASCOOL CPI, 0-0, IF, 

9!PLYRV MAXDIST + LDA, DISTANCE 1+ Y SUBX, COASTZONE CPI, 

10!CY~, IF, 

11!0 H LX I, PLYRV DELTADIST + SHI.D, THEN, THEN, RET, 

12!THEN, PLAYERVELO LHLD, PLYRV DELTADIST + SHLD, 

14! 

15! ■ .. • ■ 







FILE ^' P- 

BLK- , 3 ' 

0! ( CHECK FOR REVERSAL.. ) 

1SCMA, 7 ANI, NOWD Y E LDX, E CMP, RVRS JRZ, 

210 D MV I, CWTBL H LX I, D DAD, M CMP, RVRS JRZ, 

3! CC.WTBL H LX I, D DAD, M CMP, RNZ, 

4!LABEL RVRS 

5!REVERSE:DIRECTION CALL, HALTNOW CALL, 

6 i NOWD Y A LDX, RRC, RRC, RRC, A VAIMGLE Y SIX, RET, 

71 assemble? 

8SSUBR PL.M JOYCHECK CALL, F'lLOTC CALL, RET, 

10! 

'll! ' 

12 ! 

13! . • 

14! 


BLK= 4 

Oil CHECK FOR PLAYER ESCAPING INTO EXIT CHAMBER ) 

1!CODE ESCAPE? KEY-STATUS LDA, KYOPEN CPI, 0=, IF, 
2!B PUSH, Y PUSHX, vaddr LIYD, 

3! NOWC Y A LDX, STOP-COL. CPI , 0=, IF, 

45NOWR Y A LDX, START-ROW CPI, 0=, IF, 

5!( WE WIN! - SHAZAM! ) 

6!PLESC A MVI, PLAYERSTATE STA, 

7!THEN, THEN, 

8!Y POPX, B POP, THEN, NEXT 
10 ! 


14 ! 
i i 

BLK* 5 

Oil PLAYER HOSTAGE INTERFACE JUNK > 

1!F= DISH 

2ISUBR dishos <ASSEMBLE 6 HOSTAB H LX I, 

3!LABEL DISH M E MOV, H INX, M D MOV, H INX, D A MOV, E ORA, RZ, 
4!XCHG, HOSSV B LX I, B DAD, M A MOV, HSATP CPI, 0«, IF, 

5!HSFREE M MVI, MYFLAG HOSSV - B LX I, B DAD, 1 M MVI, THEN, 

6 ! XCHG, DISH JMPR, ASSEMBLE!;- " , 

7!CODE DISHOS B PUSH, dishos CALL, 8; POP, NEXT 
8 \CODE HALTER HALTNOW CALL, NEXT , . 

91 —> 

10 ! 


14 ! 

15 ! 







FILE * P 

BLK" 6 1 ■■ . 

CM ( CHECK VECTOR FOR INTERCEPT WITH OTHER VECTORS ) 

15( ROUTINE TO FIND INTERCEPTORS, IF ANY ) 

2 !'< ENTRY: BO NEARNESS X AND Y, HL* CHECKLIST AjDBR' V 
31 ( IY” SUBJECT VECTOR > 

4! ( RETURNS Z= NOFIND NZ= FIND, nijte FOUND THANG ) 

5!F» CSUH 

&ISUBR-.CSUSH <ASSEMBLE 
7 ! LABEL C:UH 

S!M E MOV, H INX, M D MOV, H INX, D A MOV, E ORA, 

9IRZ, D PUSH, X F’OPX, 

10!HOSSV X A LDX, HSFREE CPI, 0=, IF, 

11!PROXIMITY-CHECK CALL, RNZ, THEN, . CsUH JMPR, 

12 ! assemble:;- 

14! 

15! ' 

BLK* 7 

0!( CHECK PLAYER INTERCEPT WITH OTHER VECTORS > 

• ISO C= EATEN 1 C'~ EATHOST 

2!DATA CHECKLIST MONVI , M0NV2 , M0NV3 , M0NV4 , 0 , 

3!HEX 0202 DECIMAL C= XYBOUNDS 
4!( PLAYERS INTERCEPT CHECKER, RUNS AS HOOK ) 

5 5 SUBR PsISC FREEZE? CALL, RNZ, EXX,' 

6!CHECKLIST H LXI, XYBOUNDS B LX I, CHECK:VECTOR:LIST CALL, 
7! 0-0, IF, 1 A MV I, MYFLAG PLYRV + ST A, FREEZE CALL, 

S5PLD0A A MVI, PLAYERSTATE STA, 

91 EATEN FLAGCODE X MVIX, A MYFLAG X STX, ( SET EATEN FLAG ) 
10!( ANY HOSTAGE ABQUT? ) 

11 ! ELSE, 0 HOSTAB H LXI, XYBOUNDS B LXI, CsiJ:H CALL, 

12100, IF, 1 MYFLAG X MVIX, HSATP HOSSV X MVIX, THEN, 

13!THEM, EXX, RET, . 

14! 

15! 


BLK 

0 

1 


< CHECK 
HEX 


VMAX SWITCH ) 



4 


CODE VMAX? 0 H LXI, 
H PUSH, NEXT 


12 IN, 5 A BIT, 


0~ 


IF, H INX, THEN, 


CODE SETVEL EXX, 

L,DELTADIST Y STX 
Y POPX, EXX, NEXT 


H POP, Y PUSHX 
, H DELTADIST 


, vaddr LIYD, 

1+ Y STX, PLAYERVELO 


SHL.D, 


9 


DECIMAL 


10 
11 
12 
13 


14 

15 







FILE =~ P '••• - , ,0 ' ■ 

BLK= 9. 

0!( ROtO / PLAYER TASK ) 

11* ROTOBRAIN ;TASK: BEGIN DI. 

21PLAYERSTATE B@ PLEM CASE 

3!(.SPOT PLAYER OVER SCORE INDICATOR ) 

41DVECT-OFF 0 TIMEBMAX! " 

5!THIS!LIFE TOGGLE!LIFE 

61 THIS!LIFE ROTOPOS DUP Y! DESTY! X! 0 DESTX! 

71ZERODXDYAXAY 
81 ROTY1 ANIM! X OR-ON 
91120 TIMER!“ON A~>DEST/TIME GO 
101ST-X DESTX! ST-Y DESTY! 20 TIMER!-ON A-TDEST7TIME GO 
Tl 1PLEASE-UPDATE ZERODXDYAXAY ROTROTY ANIM! 

12IH-P-D DISPF VB! ESTPOS 
131PRTBM TIMEBMAX! 

141 PL1C PLAYERSTATE B! 


BLK= 10 

01 ELSE PI.IC CASE ( IN A CHAMBER CASE ) 

11DI ONARROWS ( CHECK JOYSTICK TO SEE IF WE CAN LEAVE ) 
21 PUSHs CCR TEST:GROTTO!DRAWN IF GET:JOYCODE ELSE 0 THEN 
31 IF PUSH: CCR MPLO NODE"’" SWAP ADJ-SCAN 

41DUP NOWD VB@ COM 7 AND = IF HALTER THEN DUP NOWD VB! 


51DUP 32 * VANOLE VB! 

61 PUSH sCCR ROT TESTsREL 
71( CHANGE STATE ) 


. 1.0 
11 
1 

13 

14 

15 


IF PLMV PLAYERSTATE'B! 


BLK-- 11 

01( GO FROM INCHAM TO MOVEABOUT ) 

11 PUSH"CCRD 

21 TEST:DRAWN IF 

31VMAX? IF 512 ELSE 384 

41 THEN ELSE 256 THEN SETVEL . 

51OFFARROWS 
61 OBJECT-MOVING BONE 
7!DEPARTsNODE 

81 PUSH: CCRD TEST.” DRAWN NOT IF DIG-S ; 

• 91 100 IN CSC ORE . , , ; ” 

101 REVEAL-ACTIVE B@ 2 = IF BEGIN SYNC REVEAL-ACTIVE B& 0= END THEN 
11 IREVV.HEADLIGHT!REVEAL SYNC DI *ROTDROT ANIM! ELSE WALK-S THEN 
121 THEN THEN 

131—> , ' ■ . ■ . ... . ' . 1 

14 1 . 







FILE - '** P . . ■> • ’ ' • * 

BLK= • . 12 ’ - , 

0! ( WE ARE DEAD STATE )' 

1 ! ELSE,. PLDOA CASE . . ' 

2SWELT-S 

3!KEY-STATUS B@ KYOPE.N * IF TV1 KEYMANf THEN 

4!ZEROT1MEB DEATHACT ANIM! 

510 sEtvel HALTER DISHOS 
6120 TIMER!-ON GO 

7 ! REM AINING-LIVES 1 -B ! REMAINING-LIVES B@ NO“i 
8!IF GAME-OVER BONE STOPme H-B! THEN 
9iDI ROTROTY ANIM! 

' 1.0 ! START-COL NROWS 1- SETs NEW!MCCR ESTP08 
1.1. ! NUL.PAT ANIM! 

12SPLEM PLAYERSTATE B! 

14! : 

15! 

BLK~ 13 

0!C LEAVE WITH HOSTAGES > 

1!ELSE PLESC CASE 

2!DVEGT-OFF 0 TIMEBMAX! ZERODXDYAXAY 
3!ST—X DESTX! RP-Y DESTY! 20 TIMER!-ON 
4!A->DEST/TIME GO 

5!THIS:LIFE ROTOPOS DESTY! BEST X! 

6!90 TIMER!-ON A->BEST/TIME GO 
7 ! STOPme H-B ! NOBREAK ■ BZERO 
8!WAIT 

10 ! 

11 ! ■ ' 

12! 

13! • ■ ‘ 

14! 

15! 

BL.!<= 14 

0!( MOVING AROUND STATE ) 

1!ELSE PLMV CASE < MOVING AROUND - DO NOTHIN YET ) 

2!ELSE XDI ." FLAKE" THEN THEN THEN. THEN THEN 
3!( IF NOT MOVING PAUSE FOR A BIT > . 

4!PLAYERSTATE B@ PLMV O IF 3 TIMER!-ON 0 SETVEL THEN 
5IPs I SC HOOK!-ON 

6 !PROPDELTAS MYFLAG V* FLAG!-ON DVECT-ON mastsrsur IGO DI 
7!OBJECT-MOVING BZERO 
P« { 

9!( YET MORE PLAYER CONTROLLER ) 

10!BEST? IF ARRIVES NODE PROPDELTAS 
11!PLIC PLAYERSTATE B! 

12!ESCAPE? TREASUREsCHECK DI ROTROTY ANIM! THEN 
1310 END 5 DECIMAL —> 

1,4! 

15! 









FILE =4 ip , 

BLK= 0 : 

0 !( PROCESS A HOT ROD- MISSUE ) 

1!BV= HOTELIP 
21SUBR HOTROD 

3! TBMISSLE TSTAT Y BITX, < are w ready to process > 

4! RZ , ( NOT A MISSLE ) 

5! - ( A= timeba.se ) mastervmr CALL, 

6 ! VBMISWRT VLOGICSTAT Y BITX, ( time to write ? ) 

7! VBMISWRT VLOGICSTAT Y RESX, 

8 ! GO* IF, TSUR Y L. LDX, TSUR 1+ Y H LDX, FORKETH CALL 
9!THEN, RET, 


BLK-- 1 

0!<STKH 

1!SUBR HIS-INT ( missle interrupt test ) 

2! PSW PUSH, B PUSH, D PUSH, H PUSH,•EXX, EXAF, 

3! PSW PUSH, B PUSH, D PUSH, H PUSH, Y PUSHX, X PUSHX, 

4!( 12 IN, CHA, IF AMI,- . 

5! .JOYLAST H LX I, M CMPt A M MOV, OO, IF, IF A MV I, THEN, 
6 ! JOYCODE ST A, ) ( HOT ROD THE PLAYERS. VECTOR 5 
7 i HOTEL IP H LX I, M A MOV, A I NR, 3 CPI, CY~, IF,' 

8 !A XRA, THEN, .A M MOV, A ANA, 

9! F'LYRV Y LXIX, 0=, IF, PL-M CALL, 

10,'ELSE, A DCR, 0=, IF, 3 A MVI, HOTROD CALL, THEN, 

11STHEN, ... 

12! SUI2-NP JMP, 

13! s MYPUP MYPUP MIS-1 NT SUI1.V I -1 HORCB OUTP ? STK> —> 

1.4 ! 

15! , 






FILE * M ' 

BLK« 0 

Oi( INDEXER AND VISABLE MONSTER WRITER ) 
1S a ISM MONVBYTES * MONVI SWAP - j 


4 

6 
7 
0 
9 
10 
11 
12 
'13 

14 

15 


SUBR VISMONWRITE C VISABLE MONSTER WRITER ) 

VBNOERASE VLOGICStAT Y BITX, 0=, IF, 

VOPATH Y A LDX, VOPAT Y ORAX, DO, IF, ; 

VERASE CALL, THEN, ( don't erase if no pattern ) 

ELSE, VBNOERASE VLOG I CST AT Y RESX* THEN, 

VBNOWRITE VLOG I CST AT Y BITX, 0=», IF, INTCPT IN, VWRITE CALL, 
TBINTCPT-CHK TVMROPT Y BITX, OO, IF, INTCPT IN, 

A ANA, 0“, IF, TBINTCPT TCHGSTAT YSETX, 

TBNOVECT TVMROPT Y SETX, THEN, THEN, 

ELSE, VBNOWRITE VLOGICSTAT Y RESX, THEN, 
transition JMP, —> 


BLI<= 1 

01( MONSTER STUFF ) 

1!DECIMAL 

21: BANISH!MONSTER BEGIN BEGIN NCOLS RND DUP INTCVB! 

3!MOWC PLYRV OVB© - ABS 2 > END BEGIN NROWS RND DUP INTR VB! 

4!NOWR PLYRV OVB© - ABS 1 > END INTO VB© INTR VB© NOBODY:HOME?YET 
5! END 2DR0P ; 

6!: MONGO INTERCEPT-ON DVECT-ON ' 

7!VISFLAG VB© IF MYFACE V© ANIM! VISMONWRITE ZGO DI 
8!INTERCEPT? IF 0 VISFLAG VB! THEN 

9!ELSE EYEBALLS-PAT ANIM! GO DI INTERCEPT? IF 1 VISFLAG VB! THEM 
10!THEN COGO S 

Ills FREESLAVE DI MYSLAVE V© IF MYSLAVE V© MYFLAG + BONE 
12! ( 0 MYSLAVE V© SNATCHER +' ! > 

13iO MYSLAVE V! THEN ? 

14!—> . 

15 ! 


0!( MORE MONSTER STUFF ) 

1!( COMPARE POSITION IN D AND E WITH POSITION IN VECTOR ) 

2!SUBR compos D A MpV, NOWR-Y CMPX, RNZ, 

3!E A MOV, NOWC Y CMPX, RET, 

4!CODE CHASEPLAYER EXX, X PUSHX, Y PUSHX, 

5!PLYRV X LXIX, vaddr LIYD, 

6 !NOWR X D LDX, NOWC X E LDX, NOWD X C LDX, 

7!move:node CALL, movecheck CALL, CY, IF, 

8!compos CALL, 0=, IF, ( IF AT PLAYERS BEST, GRAB HIS SOURCE ) 
9!NOWR X D LDX, NOWC X E LDX, THEN, 

10JD INTR Y STX, E INTC Y STX, 

11! THEN, EXX, Y F’OPX, X POPX, NEXT 
12!< GO ANYWHERE I AM NOT NOW ) 

13!: VAMOOSE BEGIN NCOLS RND INTC VB! NROWS RND INTR VB! 

14iON:TARGET? NOT END 5 
15!—> 







FILE M y 

BLK~ ,.,...3 '' ' 

0 !, MONSTER TAGk ) 

1‘HEX TABLE MONVEL 60, L 80 , AO , CO , 100 , DECIMAL 
2!XC? IFTRUE s RODAN? MYFACE V© THEWAR0D1 = 5 OTHERWISE 
3!s RODAN? 0 ? IFEND 
4iDECIMAL 

5!5 MONSTER-TASK ?TASKS DI 
6!RETURN:INITIAL s POS1TION * 

,7!ESTPOS 

8!MYFACE V© ANTM! XOR-ON 1STWRITE BEGIN DI 
9!ON:TARGET? IF RODAN? IF 
10!1 ELSE SMARTS B@ RND THEN IF CHASEPLAYER 
11 ION:TARGET? IF VAMOOSE THEN ELSE VAMOOSE THEM 
12!'• RECON SET CO COGO DI ZEROTIMEB 

14! 

15! 


BLK= ’ 4 


0!THEN FOLLOWTRACK NOWD VB‘ 


1!GAME# © RODAN? + 


2!4 MIN MONVEL © BELTADIST V! 
3!( HAVE MONSTER CRAWL ABOUT 
4! BEGIN MYFLAG V"'" FLAG ! -ON 
• 5 ! MONGO SET CO COGO .DI 


6 


DEPART:NODE 

) 


7 


8 
9 
10 
11 
12 

13 

14 

15 


. 5 

O!< BANISHMENT STUFF ) 

1!FLAG? IF 0 BELTADIST V! 

2!BANISH s MONSTER INTC,VB© BANC B! 

3 ! INTR VB© BANR B! • 

4!-' RECON SETCO COGO DI 
510 MYFLAG VB! FLAG-OFF 

6 * < WANDER BACK TO WHERE MONSTER LAST CAME FROM ), 

7SBEGIN ESTPOS ZEROTIMEB . ■ 

8 IONS TARGET? NOT IF FOLLOWTRACK NOWD VB! 

9!DEPARTS MODE EX ITVEL DELTADIST V f 
10! BEGIN •" MONGO, SETCO CfeiGO BEST? END ARRIVE: NODE Q- 
11 ! ELSE' 1 THEN END 
121FREESLAVE 

13!UNFREEZE 1 ELSE 0 BEST? IF ARRIVES NODE DROP 1 THEN THEN 
14! END 0 END Y ' ’' " ' • ■ , 

15! DECIMAL —> , " ’ ■> . ^ 







FILE * M 
BLK= 6 

OK MONSTER MASH ) 

1!STABLE MRTBL'0 B, 0 B, 2 B* 2 B, 

2!STABLE' MCTBL. 0 B, NCOLS'l-B. 0 B, NC0L8 1- B 
3! " 'MONSTERMASH MONSTERCOUNT @ 0 DO I MCTBL B® 
4! I ISM SETs INITIAL.: MCCR I 0= IF THEWAR0D1 ELSE 
5! THEN I ISM MYFACE OV! I IsM MONSTER-TASK 
6!LOOP 5 ' 

7 ! —> 

O * 

i 

91 , • 

10 .! 

, 11 !' 

12 ! 

1.3! 

14! 

15! 


I MRTBL‘B®. 
THESPDR 




FILE = E, 

BLK~~ 0 

0!< PRE VGER ACTIVITY ) HEX 
I!XC? IFTRUE S CLMUS 0 BGMV JLENGTH FILL 5 
2!CODE CRAMIT 0D800 H LX I, BEGIN, 0 M MVI, 
3i OFO CP1 7 0=, END, . NEXT 
41 OTHERWISE s. CRAM IT 5 's CLMUS s I FEND 


6 

7 


H INX, H A MOV, 


9 
10 
11 
12 

13 

14 

15 


0 ! ( 

.1. ! s 


1 

GAME PLAYER ) HEX 

VG MYPUP DI CRAMIT SPARKLES-OFF CLEARS SCORES 


ZAP* VECT 


4 


8 0 DO 8 I OUTP LOOP 
4 DUP REMAINING-LIVES 
GAME-OVER ZERO 


5'GAME# ZERO 

6!BEGIN TOTAL-PATHS ZERO 
7!CHEAPRND 0 RND# ! 


INITIAL-LIVES ! 


REVEAL-ACTIVE BZERO 


ARROWFLG 


BZERO 


8 !MAKES MAZE MD 
9!SCRLRASE 

10! ( BLUEFIL.L ) -1 4000 SCO FILL. 


11 


12 

13 




14 

15 


0!( MORE EXPLORE ) 

HD I CLMUS MYPUP AMUSE 
2!1C VERBL OUTP -1 HORCB OUTP 
3 5 NOBREAK BONE ZAP." VECT 
4! C s S s V 

Si HIDE*TREASURE -JAILS HOS . ■ 

6INPLAYERS ZERO PLAYERUP ZERO TRPOKE BZERO 
7!REVEALED-PATHS ZERO 1 TOTAL-REVEALED-GROJTOS ! 

j ..' . 

91 

10! ‘ *. 

11 ! , . . • ' ■ , 

1.21 ■ ' 

•: o i 
1 1 

14! ' . ’* \ T 











FILE = E . 

BLK*.'' 3 

0! ( PRE VGER ACTIVITY ) 

1 ! START-COL. DUP PLYRV NOWC OVB! 

21REVV NOWC OVB! 

3! START-ROW DUP PLYRV IMOWE OVB! 

4,‘REVV NOWR OVB! PLEH PLAYERSTATE B! 

513 GAME# @ + 4 MIN MONSTERCOUNT ! STARTEXCITE BACK 
&! GAME# @ 1+ 4' •* 26 MIN KEY-THRESHOLD ! ! 

7!GAME# € 2/ 1+ SMARTS B! FREEZEFLAG BZERO 
SiPISV DISPP1SCR P2SV DISPP2SCR 

9 !BKGV INITIAL:REVEAL . 

.1.0! PLYRV R0T08RAIN 
11IMONSTERMASH TV! KEY-TASK 

3.2 ! D s R: L 8 7 OUTP 

1.3 ! —> 

.14! 

15 ! 


BLK= 4 

0!( YET MORE ) BREAK 
1!TT GAME# 1+! NOBREAK Bt DUP 0= 

2!TV1 END.GAME TT THEN 

3!GAME-OVER B® OR EMUSIC END ? 


4 


IF 


DI 


MYPUP 0 TVVS 


f; 

~J 


HEX 

: GAMELP BEGIN CRAMIT VG BEGIN 10 INP OFF <> 
DECIMAL —> 


END 


9 ! 
10 ! 
11 ! 
12 ! 
13! 
14 i 

1 5iT.* I 
I. *.J J 

OK 


TVVL FI!. 


0 END 5 






